日 本 ソフ トバ ンク 


X1 シ リー ズ (X 1・X1C・X1D) 


1] テク ニカ ル マ ス ター 


スト ラッ ト フ ォ ー ド C.C.C. FF 


日 本 ソフ トバ ンク 


55—797 EIB] 


口絵 カラ ー ペ ー ジ に 掲載 し まし た カラ ー グ ラフ ィ ッ ク 画 面 の プロ グラ ム は 本 書 巻 末 「 付 録 」 に あり ます 。 
本 文 を よく 読ん だ 後に プロ グラ ム の 意味 を 考え 、 復 習 を し な が ら 実 際 に 打ち 込ん で 見 て くだ さい 。 


初期 画面 
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Hit Any KEY 


4 マ ペ ン マ ペレ マリ 
イペ ンマ ペレ イマ リク 
ベレ リリ で 


ッッ ヤヤ や 
ҹу Ҹу А, 
ААД 


ベタ る > 
4 اھ‎ 
< >< > 


ША А 百人 一 首 と 銘打っ た プロ グラ ム で す 
十 二 ひ と 衣 の 美しい 平安 美人 が あら われ ます 


いい 
y x 
‚түтүү 


FED ちょ っ と 時 間 は か か り ま す が 、 き れい な 手まり が で きま す 
本 文 を よく 読ん で 勉強 すれ ば も う 少 し 細か い 模 様 が 描け ます 


は し が а 


シャ ー プ か ら 「 ッ パソ コン テレ ビ X 1 」 が 発表 きれ た の は , 82 年 の 暮れ で し た 。 先進 的 な グラ 
フィ ッ ク 機 能 , 自由 に 定義 で どき る キャ ラク タ ・ ジ ェ ネ レー タ , 優れ た サウ ンド 機能 な ど , パッ 
コン と し て 考え られ る ほとん どの 機能 が 盛り 込ま れ だ うえ ぇ 、 世 界 で も 初 の テレ ビ 放 送 と コン ピ 
ュー タ 画 像 と の スー パー イ ン ポ ー ズ 機能 を た ず き えて の 登場 で す 。 パ ソコ ン と テレ ビ が 一 体 と 
な っ た 「 パ ソコ ン テ レ ビ X 1 」 が 衝撃 的 な デビ ュー を 飾っ た の で し た 。 

X 1 は 、 単 に パソ ツ コ ン と テレ ビ を 組み 合わ せ た だ け の 複合 商品 で は な く 《 く , ビジ ュ ア ル な 面 で 
の 総合 機器 と し て の 性 格 と 特徴 を 持っ て いま す 。 パ ソコ ュ ン の キー ボー ド か ら テ レビ の 音声 や チ 
ャ ン ネ ル を 操作 で きる 。 パ ソコ ン の タイ マー で テレ ビ を コン トロ ー ル で きる 。 テ レビ 放送 の 画 
面 に パソ コン か ら の 文字 を 重ね て 表示 で きる 。 デ ジタル テロ ッ パ と 組み 合わ せ て ビデ オ の 編集 
が で きる , な ど な ど で す 。 ま る に ホー ムコ ンピュータ 時 代 の 暮 あ け を 告げ る , 斬新 な ハー ドウ 
ェ ア の 誕生 を X 1 に 見 な わけ で す 。 X 1 は パソ コン の 革命 児 ど と いう の が 第 一 印象 で し た 。 

X 1 の ハー ドウ ェ ア の 構成 に は 、 高 度 で 斬新 な 技術 的 発想 が た くき ん 盛り 込ま れ て いま す 。 
そし て , その ハー ドウ ェ ア の 多彩 な 機能 を あま す と ころ な く 発 揮 き せる た め に 開発 る され だ た の が 
「SHARP Hu-BASIC」 で す 。 

本 書 で は , この 「SHARP Hu-BASIC」 を わか りや すく 解説 し て いき ます 。 初め て コン ピュ 
ー タ に ふれ る 方 か ら , ある 程度 BASIC を 知っ て いて , X 1 独自 の 機能 を 活用 し よう と し て いる 
方 まで を 対象 に し まし た 。 

「 習 う よ り 慣れ ろ 」 と いう こと ば を よく 〈 耳 に し ます が , この こと ば は まる に パソ コン を マス 
ター する た め に ある よう な も の で す 。 最初 は BASIC の 命令 の 意味 な ど わ か ら な 〈 く て も 、 実 際 に 
X 1 を 動か し て 間違い を 繰り 返し な が ら 親 し ん で いく うち に , 使い 方 も 意味 も 自然 に 身 に つき 
ます 。 特 に , 初め て パソ コン に ふれ る と いう 方 は , 説明 文 ど だ け で 理解 し よう と せ ず に , 何 か 疑 
問 に 思っ た だ たら, すぐ に キー ボー ド か ら 打 ち 込 ん で 試し て 見 る よう お すす めし ます 。 本 書 で は , 
少し づつ 確実 に 知識 と 技術 が 身 に つく よう に , 実際 の 例 を た くる ん あ げ な が ら 説 明 を 進め て い 
ç よう に し まし た 。 

X 1 は 非常 に 多く の 機能 を 持っ て いる の で , それ ら を コン トロ ー ル する だめ の BASIC の 命令 
も 多岐 に わた っ て いま す 。 あ る 程度 BASIC を マス ター し て いる 方 は , グラ フィ ッ ク や サウ ンド 
ЖЕ, 興味 を 持て る と ころ か ら ペ ー ジ を 開い て くだ さい 。 楽し みな が ら X 1 の 機能 が 理解 で き 
ます 。 

ик, 記述 内 容 に つい て は , 誤り の な いよ う 十 分 配慮 し た つも り で す が , お 気づき の 点 や , 
ご 意見 な ど が ご ざい まし た ら , ご 教示 くだ さる よう お 願い いた し ます 。 

また , 本 書 の 出版 に たって, ひと か た な ら ぬ ご 指導 ご 協力 を いた だ いた シャ ー プ 株 式 会 
社 電子 機器 事業 部 , な ら び に 株 式 会 社 日 本 ソフ トバ ンク 出版 部 の 皆様 方 。. ストラット フォ ー ド 
の 福井 , 伊東 , 尾 林 氏 に は , ここ に 誌面 を な 借り し て 心から の ぉ 礼 を 申し あげ る 次 第 で す 。 

1983 年 8 月 

著者 代表 須川 晴男 
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ХІ に さわ っ て みな し ) か で 


ІЗІ AVIA マイ ゴン て と ほん に と 


@ U 2, マイ コン と は 2? 


近頃 ,「OA」 と か 「FA」 な ど と いう 言葉 が 新聞 紙上 を は じ め 世 間 を に ぎわ し て いま す 。 Z 
の 中 心 に な っ て いる の が 「 パ パソ ツユ コン 」 パー ツナ ルコ ンピュータ で す 。 

また ,「 マ イコ ンプ ブー ム 」 な ど と いう 言葉 も よく 聞か れ ま す 。 家庭 電気 製品 の 中 に も 「 マ イコ 
ン 内 蔵 」 を を キャッチ フレ ー ズ に し た も の が だ た くさ ん 目 に つく よう に な り ま し た 。 

ST, この パソ ツ コ ン と か マイ コン と いう の は 具体 的 に どん な も の な の で し ょ うか 。 

「 マ イコ ン 」 と 「 パ ツッコ ン 」 と は よく 混同 し て 使わ れ て いま す 。 だ た と えば 「 フ パッ コン 」 を 販売 
し て いる お 店 を 「 マ イコ ン シ ョ ッ プ 」 と 言っ た り , 「 ラ パッ コン 」 の 使い 方 を 教え る 学校 も 「 マ イ 
ュ ン スク ー ル 」 と 呼ん だ り し ます 。 この 本 で 取り 上 げ る 「 フ パソ コン テレ ビ X 1 」 は ,「 マ イコ ン 
内 蔵 エ アデ コン 」 や 「 マ イコ ン 制 御 直 火 炊き 」 の 電気 答 と どう 違う の で し ょ うか 。 

「 を そん な こと は わか りき っ て いる 。 エ アコ ン は 部 屋 の 温度 を 調節 する も の で , それ を 上 手 に コ 
ント ロー ル す る だ た め に 『 マ イコ ン 」 を 利用 し て いる の だ 」 t, 誰 も が 思う で し ょ う 。 

と ころ で , 「 マ イコ ユン 」 と いう の は , 手軽 に 使え る こと か ら , 自分 の コン ピュ ー タ と いう 意味 
TO "my computer」 の 略 だ と 思う 人 が いる か も し れ ま せん が , 本 当 は 「 マ イク ロ ・ コ ン ピ ュ 
ー タ (micro computer)」 の 略語 な の で す 。 こ の マイ クロ ・ コ ンピュータ は 小 る な チッ プ Oh 
№) 1 枚 で 大 きき は 5 一 6 ミリ 四方 , 小指 の 先 に の る くら い の サ イズ で す が , 一 茸 前 の 大 型 コ 
ンピュータ と 同じ 機能 を 持っ て いま す 。 こ の チッ プ の こと を 部 品名 で LSI( エ ル エ ス ア イ , Large 
Scale Integrated circuit) と 呼ん えび で いま す 。 日 本 語 に な お な す と , 「 大 規模 集積 回 路 」 と な り ま 
す が , 言い に くい の で ふつ う は LSI と 呼ん で いま す 。 この LSI に 仕事 の 手順 び で ある プロ グラ ム を 
書き 込ん だ も の を 本 来 マ イコ ユン と いう の で す が , 最近 で は 意味 が 広がり , シス テム と し て LSI を 
組み 立て た も の まで マイ コン と 呼ぶ よう に な っ て いま す 。 

個人 で 買う こと が で きる コン ピュ ー タ は 最初 ,「 コ ンピュータ 」 の 働き を 学習 し た り , 理解 す 
る だ め の も の で し か あり ませ ん で し た 。 プ リン ト 基 板 も むき 出し に な っ て いま し た が , それ で 
も 立派 に コン ピュ ー タ と 呼べ る も の で し た 。 

この コン ピュ ー タ が 目 ざ ま し 発達 し て , 現在 見 られ る よう な ディ スプ レイ や キー ボー ド と 
一 体 に な り , 机 の 上 に 置い て 使え を る コン ピュ ー タ と な っ だ た の で す 。 こ の よう な 形 に な っ だ も の 
を 改め て 「 ラ パソ ッ コ ン 」 パー ソナ ルコ ンピュータ (personal computer) と 呼ぶ よう に な り 
- Lies 


@BASIC で コン ピュ ー タ と 話 そ う 


コン ピュ ー タ と いう も の を 簡単 に 言い 表わす と , あら か じ め 決 め ら れ た 仕事 を , 手順 どおり 
に 忠実 に 繰り 返し 行なう る の と いう こと に な り ま す 。 
朝起き て か ら 夜 乱 る まで の 一 日 の 「 手 順 」 を 書き 表わし て み ま し ょ う 。 た と えば 図 1 - 1 L 
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1 X1 に さわ っ て みな いか ? 
うに な る で し ょ う 。 (11-1) 
コン ピュ ー タ は , この よう な 手順 を 忠実 に 守っ て 
仕事 と を し ます 。 人間 の よう に 寝 ぼ ぽう を し た り , 歯 を 
みがき わす れる こと は 決し て あり ませ ん 。 ま た , Š 
の 図 の 中 に ある よう な 判断 を する こと も コン ピュ ー 
タ は や っ て の ける の で す (この よう な 一 連 の 手順 を 
「 プ ログ ラム 」 と よび ます )。 
マイ コン 内 蔵 の エア コン や 電気 釜 び は , それ ぞ れ 
決め られ た 仕事 に 対し て 一 番 具合 の いい 条件 に する 
よう プロ グラ ム る され だ た 「 マ イコ ン 」 が 組み 込ま れ て 
50, これ ら の マイ コン は , тауоЖ А Z 1 
ぞ れ の 仕事 専用 に 設計 る れ て いま す 。 で すか ら 使 う 
側が 室内 の 温度 を 測っ て エア コン を も ストップ る せる 
操作 し た り , お 米 の 炊き 具合 を チェ ッ ク し た りす 
る 必要 は な い の で す 。 


NO 

顔 を 洗う 
これ に 対し て 「 パ ツッコ ン 」 で は , どん な 仕事 を き 朝食 を 食べ る 

せる か を , 使う 人 が コン ピュ ー タ に 覚え 込ま せる 必 


要 が ある わけ で す 。 これ は 逆 に 言え ば , 使う 人 それ ぞ れ が , 自分 に 都合 の いい よう な 仕事 を る 
せる こと が で きる の で す 。 パ ッ ラ コン に 仕事 の 手順 を 指示 し て , 電気 釜 を 「 マ イコ ン 内 蔵 」 と 同 
じ 働 き を する よう に コン トロ ー ル する こと も で きる わけ で す 。 

パソ コン を 動か す た め に 必要 な 「 プ ログ ラム 」 の 作り 方 を も マス ター すれ ば , パパ ツッコ ン は 心 強 
いあ な た の パー トナ ー に な り ま す 。 パ ツ コ ン テ レ ビ X 1 は , パソ コン の 中 で も 特に 活動 範囲 の 
広い も の で す 。 人間 が や る と 何時 間 も か か る 仕事 を わずか の 時 間 で 仕上 げ て くれ ます し , ゲー 
ム を 楽し むこ と も で きま す 。 音楽 も 聞か せ て くれ ます 。 ま た, 英語 や 算数 の 勉強 に も 使え ます 。 
テレ ビビ 番組 の 時 刻 や チャ ン ネ ル の 予約 を し た り , ビデ オ に つない で 楽し ん だ りす る こと も で き 
ます 。 X 1 は , この よう に 多く の 機能 で 私 た ちの 生活 を 彩っ て くれ ます 。 

を そのため に は , X 1 と あな た が お 互い の 意思 を 通じ 合わ せる こと が 必要 に な っ て きま す 。 意 
思 を 通じ 合わ せる た だ ため に は , コン ピュ ー タ と 話 を する た め の 新 し い 言 葉 を 覚え を な けれ ば な り ま 
せん 。 こ う 書 〈 と , 英語 の 授業 な ど 思 い 出 し て ,「 む ず か し そう だ 」 と 思う か も し れ ま せん 。 で 
b, と うか 安心 し て くだ きい 。X 1 を 自由 自在 に 操る た め に 私 た ち が こ れ か ら 勉 強 する 言葉 は , 
ご く 簡 単 な 英語 の 単語 の 組み 合わ せ だ どけ で で き て いま す 。 この 言葉 を 「BASIC」 と 呼び ます 。 
少し ずつ コン ピュ ー タ を 動か し て いる うち に BASIC も , ユン ピュ ー タ の 使い 方 も 自然 に 身 に つ 
いて きま すか ら , ЕТ, あき ら め ず , 少し ずつ ゆっ くり と マス ター し て いき まし ょ う 。 


ар йй@й11й1 лена 


TE ソコ ツテ ビビ X11 で 
あな た の 生活 は こう 変わ る 


パソ ツ コ ン と テレ ビ が 一 緒 に な る と , いろ いろ な 可能 性 が 未来 に 向かっ て 広がり ます 。 

ゲー ム を 楽し ん だ り , 少し 高級 に シミ ュ レ ー タ と し て X 1 を 使っ た り , ビデ オ の 編集 に 使っ 
た り , 勉強 に だ っ て 使え ます 。 ビ ジネス に も 立派 に 役立ち ,、 ワー ド プ ロモ セッ サ や コン ピュ ー タ 
グラ フィ ックス , コン ピュ ー タ ミュ ー ジ ッ ク の 道具 と し て も X1 は 活躍 し ます 。 デ ー タ 通信 の 
端末 に 使わ れる よう に な れ ば , 楽し い 未 来 の 暮 6 し の 中 で , X 1 は 本 当 に 主役 に な る に 違い あ 
り ま せん 。 

いえ , 主役 は X 1 を 使い こなす みな る ん で す 。 X 1 は いろ いろ な 場面 で みな る ん の 暮らし の 
お 手伝い も を する だ け で す 。 XX 1 で みな る ん の 暮らし は どこ まで 変わ る か , どこ まで 変え られ る 
か は , みな さん の 力 と 希望 し だ いな の で す 。 


@ つ ょ に ュー タク 
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1-3 ХТОЯАВЕ 


@X 1 の 身体 検査 


実際 に X 1 の 各部 分 見 て いく こと に し まし ょ 5, 

X1, テレ ビ の 部 分 (CZ - 800D) と コン ピュ ー タ 部 分 (CZ- 800C) の 2 っ て で 構成 きれ て 
いま す 。 コ ンピュータ の 部 分 は , 四角 い 箱 の よう な コン ピュ ー タ 本 体 と , タイ プラ イタ に 似 た だ 
キー ボー ド に 分 か れ て いま す 。 

中 身 も 見 を えな い 四 角 い 箱 が , 人 間 で いえ ば 頭脳 に あたり ます 。 これ が 目 や 耳 や 手足 に あたる 
ディ スプ レイ と キー ボー ド な どの 中 心 に な っ て , それ ら を コン トロ ー ル し ます 。 こ の 四角 い 箱 
が 本 体 の 部 分 で , "Central Processing Unit (中 央 演算 処理 装置 )」 の 頭 文 字 を と っ て , CPU 部 
と も 呼ば れ ま す 。 


(41-2) 


カセ ッ ド トド レコーダ 

デー デカ ウン タタ 
TIZA фи (Кака и 
テー プイ ジェ クト ボタ ン 
電源 スイ ッ チ 
イン ジ ケ ー タ 部 

内 蔵 ス ピー カ ( 側面) 


メイ ン 電 源 ス イッ チ 


フレ ー ム アー ス オプ ショ ン ボ ー ド 取付 用 パネ ル 
フレ ー ム アー ス 

= _ р 背面 便 キ ー ボ ー ド 接続 端子 

TAI- | ジョ イス ティ ッ ク 用 端子 ( 2 個 ) 

RGB 信 号 出力 端子 プリ ンタ 用 端子 


リセ ッ ト ス イッ チ 
オー ディ オ 出 力 端子 
音量 調整 ボリ ュー ム 


ディ スプ レイ デレ ビ 
コン トロ ー ル 信号 出力 端子 


CPU 部 の 前 と 後ろ は 図 1-2 の よう に な っ て いま す 。 前 か ら 見 る と ちょ うど カセ ッ ト デ ッ キ の 
よう に 見 えま す 。 で す が , 音楽 を 聞く だ た め の カ セッ ト デ ッ キ と は ちょ っ と 違い ます 。 こ こ に は , 
コン ピュ ー タ プロ グラ ム を 録音 し た カセ モット テー プ を 入れ て 使い ます 。 カ セッ ト の ドア を 開け 
る に は , 電源 を 入れ て , 本 体 の 右側 の 「EJECT」 ボタ ン を 押し ます 。EJECT ボ タン の 下 に は , 
いろ いろ な イン ジ ケ ー タ ラン プ が つい て お り , その 横 の 赤い 枠 の 中 が 電源 スイ ッ チ で す 。 コン 
ピュ ー タ 本 体 部 の 電源 の 「ON/OFF」 に は この スイ ッ チ を 使い ます 。 

本 体 の 後ろ 側 に も 電源 スイ ッ チ が あり ます 。 背面 の この スイ ッ チ が X 1 の メイ ン 電 源 ス イッ 
チ で す が , 普段 は 使わ ず が , ON に し て お きま す 。 と いう の は , ユン ピュ ー タ の 中 に ある テレ ビ の 
タイ マー 機能 を 保つ の ため な の で す 。 メ イン 電源 スイ ッ チ を 切る と , モッ ト る れ て い だ タ イマ ー 
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も 消 を て し まい ます 。 

前 面 の 左端 に は 小さき な ジャ ッ ク が あり ます が , ここ に は キー ボー ド か ら の び た ケ ー ブ ル の ンプ 
ラグ を る し 込み ます 。 背面 に も 同じ ジャ ッ ク が あり ます 。X 1 の 置き 方 や 使う 場所 に よっ て 2 
つの ジャ ッ ク を 使い 分 けら れる よう に な っ て いる の で す 。 キ ー ボ ー ド 専用 の ジャ ッ ク で すか ら , 
イヤ ホン な どの プラ グ を 差し 込ん で は いけ ませ ん 。 

本 体 の 背面 に は いろ いろ な 端子 (る し 込み 口 、 ジャック) が あり ます 。 こ れ ら は テレ ビ を は 
じ め と し て , ビデ オ や プリ ンタ な どの 機器 と の 接続 に 使い ます 。 右端 は キー ボー ド を 接続 する 
た め の 端 子 で す 。 その 横 に は , ジョ イス ティ ッ ク 用 の 端子 が 2 つ あ り ま す 。 ゲ ー ム を 楽し むと 
а, この 端子 に ジョ イス ティ ッ ク を つなげ ば , ゲー ムセン ター の テレ ビ ゲ ー ム と まっ た だ く 同 じ 
КЭХ ТНА ЕГЕ, 

次 は グリ ンタ 用 端子 で す 。 プ リン タ は , コン ピュ ー タ か ら の 指令 に よっ て 文字 を 打ち 出す 機 
械 で す 。 そ の 左 の 黒い 押し ボタ ン は リセ ッ ト ス イッ チ と いい ます 。 何 か の 理由 で コン ピュ ー タ 
の 動作 セコ ント ロー ル で き な く 《 な っ て し まっ た と き に だ け 使 いま す 。 

「AUDIO OUT」 は , X 1 が 持っ て いる シン セ サ イ ザ が 作り 出す 音 を 取り 出す た め の 端 子 で す 。 
ステ レオ な どの 「AUX」 と いう 端子 と 接続 する を と, ダイナミック な コン ピュ ー タ ・ ミ ュー ジッ 
ク を 楽し か こと が で きま す 。 ス テレ オ な ど と 接続 し な い 場合 で も , 本 体 に 内 蔵 さ きれ た スピ ー カ 
か ら 音 が 出る よう に な っ て いま す 。 を その と き の 音 量 を ユン トロ ー ル する ボリ ュー ム つ まみ が 「AUDIO 
OUT」 の 左 に つい て いま す 。 

X 1 で は , ディ スプ レイ テン レビ (CZ-800D) の チャ ン ネ ル や 音量 な ど を , キー ボー ド の 操作 
で コン トロ ー ル する こと が で きま す 。X 1 の 標準 BASIC に は テレ ビ を コン トロ ー ル する た め の 
命令 $ ね あり ます 。 デ ィ ス プレ イ テ レ ビ の 音量 や チャ ン ネ ル を コン トロ ー ル する た め の 信 号 を 送 
り 出す の が ,「TV CONTROL」 端 子 で す 。 付属 の ケー ブル を 使っ て ディ スプ レイ テレ ビ と 接続 
し ます 。 を その 左 の 同じ よう な 端子 は , ディ スプ レイ テレ ビ の 画面 に コン ピュ ー タ の 映像 を 映し 
出 き せる 信号 を 送り 出す 端子 で す 。「RGB」 と いっ て 色 の 三原 色 の 赤 , Ж, 青 の 信 号 を 別々 に 分 
離し て ここ か ら 6 出し ます 。 こ れる 付属 の ケー ブル で テレ ビ と 接続 し ます 。 こ れ ら の 2 DRT 
の 形 は そっ くり です が, ピン の 数 は 異な っ て いま す 。 あ や まっ た 接続 が びき な いよ うに な っ て 
いる の で す 。 

これ ら 6 の 端子 に ケー ブル を さる し 込む と き は , 必ず 本 体 の 電源 を 切っ た 状態 で 行なっ て くだ きい 。 


キー ボー ド 


キー ボー ド 部 分 は あな た と コン ピュ ー タ と を つ な で 重要 な 部 分 で す ( 図 1-3)。 
キー ボー ド に は だ た くる さん の キー が 並ん で いま す が , それ ら を 大 きく 5 つの グル ー プ に 分 ける 
こと が で さま す 。 

まず メイ ン キ ー 部 を 見 て み ま し ょ う 。 ア ルフ ァ ベ ッ ト や 記号 の キー が 並ん で いま す 。 BASIC 
の 命令 な ど は ここ か ら 打 ち 込 ん で いき ます 。 ア ルフ ァ ベ ッ ト の 文字 が バラ バラ に 並ん で いる よ 
うに 見 えま す が , САЩ, タイ プラ イタ の キー の 配列 に な ら っ だ も の で 使う 頻度 の 多い キー を 
中 央 に 集め て 使い や すく 〈《 し て いる の で す 。 

メイ ン キ ー の 上 に ある の は ファ ンク ショ ン キ ー で す 。 ひ ん ば ぱん に 使う BASIC の 命令 語 が , 2 
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1 X 1 に さわ っ て みな いか ? 
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れ ら の キー1 つ で コン ピュ ー タ に 送り 込め る よう に な っ て いま す 。 

右側 の , 数 字 な ど を 集め た 部 分 を 数 値 入力 キー, また は テン キー と 呼び ます 。 数 字 や 計算 式 
を 打ち 込む と き に 便利 で す 。「 十 」,「 一 」,「※」 「 プ 」 な どの 計算 記号 や , カー ソル を 移動 させ 
る キー も ここ に あり ます 。 コ ユン ピュ ー タ で は , 乗算 の 「X」 の 記号 を 「*」( ア スタ リス ク ), 
除算 の 「 そ 」 を 「 プ 」( ス ラッ シュ ) と し て 使い ます 。 

テン キー の 上 は , カセ モット コン トロ ー ル キー で , X 1 本 体 の カモ セッ ト デ ッ キ を この キー で 操 
作 し ます 。「 再 生 」 や 「 録 音 」 の キー が な い 点 が 一 般 の カセット デッキ の ボタ ン と は 異な り ま す 。 
これ は , X 1 では, 録音 や 再生 ほ と い っ た 操作 を BASIC の 命令 で 行なう か ら な の で す 。 

その 左 の 銀色 の キー は , ディ スプ レイ テレ ビ の コン トロ ー ル を 行なう キー で す 。 こ の 5 つの 
キー は , ディ スプ レイ テレ ビ に つい て いる 「VOLUME」 や 「CHANNEL」 な どの スイ ッ チ と 
まっ だく 同 じ 働 き を し ます 。 デ ィ ス プレ イ テ レ ビ の スイ ッ チ を キー ボー ド に 引き 出し て きた 形 
で すか ら , 他 の キー と は 少し 性 格 が 違い ます 。 
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1-4 Ху こと 愉快 な 仲間 た ち 


@ X | の 強い 味方 


X 1 は , 本 体 と ディ スプ レイ テレ ビ の 組み 合わ せ だ け で も 1 台 の コン ピュ ー タ と し て 使う こ 
と が で きま す 。 

皆さん が X 1 の BASIC を 十分 に マス ター し , さま ざま に 使い こなし て いけ る よう に な る と , 
計算 の 結果 を 紙 の 上 に 残し て お きた いと か , デー タ や プロ グラ ム の 出し 入れ も を ス ピー ディ に 行 
な いだい と 思う よう に な る で し ょ う 。 

#2, X 1 の ディ スプレイ は ビデ オ と 接続 する こと が で きま すし , さら に コン ピュ ー タ の 機 
能 を 組み 合わ せる こと も で きま す 。 

こん な と き に 活躍 する X1 の 仲間 た ち , 周辺 機器 を 紹介 し まし ょ う ( 図 1-4)。 
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1 X1 に さわ っ て みな いか ? 

1. プリ ンタ (CZ-800P) 

X1 に いろ いろ な 計算 処理 を させ る と き な ど 計算 結果 や メッ セー ジ が と て も 多く な り , ディ 
スプ レイ テレ ビ の 画面 に 収まり きら 6 なくなっ て し まい ます 。 だ か らし と 言っ て , 画面 に 表示 きれ 
た 文字 を いろ いろ る 紙 に 書き 写し て いた の で は 能率 も 悪く 、 スマ ー ト で は な いし , だ いい ち 誤 り 
の も と に な り ま す 。 ま た だ , 打ち 込ん を で いっ た プロ グラ ム が 長 過ぎ て , 画面 に 収まら な く 《 く な っ だ 
と き で も , その プロ グラ ム の 全体 を 見 な けれ ば な ら な いこ と が し ば し ば あり ます 。 こ の よう な 
場合 、 プ リン タ が ある と 非常 に 便利 で す 。 

プロ グラ ム の 内 容 (これ を プロ グラ ムリ スト と いい ます ) や デー タ を 紙 に 打ち 出す こと も で 
š š+, X 1 の 専用 プリ ンタ CZ-800P は , X 1 で 使わ れ て いる すべ て の 文字 や 記号 を 打ち 出す 
こと が で きま す 。 まだ, グラフィック で 描い た 画面 を を そ を っ くり コピ ー す る こと も で きま す 。 ゲ 
ー ム の 名 場面 を 残し て むく こと も で きま す 。 プ リン タ は 専用 の ケー ブル を 使っ て 本 体 後部 の プ ` 
リン タコ ネ ク タ と 接続 し ます 。 


2. フロ ッ ピ ー デ ィ ス ク ド ラ イブ (CZ-800F) 

X 1 本体 に は カセ モット デッキ が 内 蔵 き まれ て いま す 。 プ ログ ラム や デー タ は カセ ッ ト テ ー プ に 
記録 し た り , 読み 出し た り で きま す 。X 1 の カセ ッ ト テ ー プ へ の 書き 込み や 読み 出し の 速度 は , 
他 の パッ コン に 比べ , 非常 に 高速 で す 。 そ れ で も , BASIC テ ー プ の 読み 込み に は 2 分 40 秒 ほど 
か か っ て し まい ます 。 

フロ ッ ピ ー デ ィ ス ク を 使う と , こう いっ た 仕事 の スピ [写真 1 - 1 〕 

ー ド が 大 変速 く な り ま す 。 それだけ で な く , テー プ で は 
絶対 に で き な い こと が 可能 に な り ま す 。 

写真 1- 1 の よ うに, 四角 い ケ ー ス の 中 に 薄い レコ ュー ド 
の よう な も の が 入っ て いる の が フロ ッ ピ ー デ ィ ス ク で す 。 
双 1 で カセ ッ ト と と フロッピー ディ スク を 使う と き の 違 い 
は , ち ょ うど テー プ と レコ ュー ド の 違い に あて は まり ます 。 
た と えば , レコ ー ド の 3 曲目 を 聞き た いと き に は , その 
曲 の は じ ま り の 部 分 に レコ ー ド プレ ー ヤ の アー ム を 持っ 
て いっ て 針 を お ぉ おろ せ ば 良い で すね 。 それ に 対し て , テー 
プ で は は じ め の 曲 か ら 順 番 に 早送り し て いっ て , 目的 の 
曲 を 見 つけ だ さき なけ れ ば な り ま せん 。 

カセ ッ ト テ ー プ の 場合 に は プロ グラ ム や デー タ は は じ め か ら 終 わり まで 順番 に 記録 きれ て い 
ます 。 こ の よう な 記録 方 法 を シー ケン シャ ルフ ァイル と 呼び ます 。 フ ロッ ピー ディ スク を 使う 
Lt, ちょ うど レコ ュー ド の 3 曲目 に 針 を おろす よう に , 希望 の アプ ログ ラム や デー タ か らい き な り 
作業 を は じ め る こと が で きま す (ラン ダム ファ イル )。 

フロ ッ ピ ー デ ィ ス ク ド ラ イブ を 使用 する に は X 1 の 本 体内 部 に オプ ショ ン の 拡張 | /O ポ ー ト 
(CZ- 8 EP) を 取り つけ , さら に イン ター フェ ー ス を 設置 する 必要 が あり ます 。 

イン ター フェ ー ス (interface) と は , ユン ピュ ー タ 本 体 に 新しい 入出 力 装 置 を つ な で と き な 
Ес, 2 つの 装置 を つない で 十分 に その 機能 が 働く よう に する た め の , 2 つの 装置 間 の 共有 部 
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分 と いう も の で す 。 簡単 に に えば 2 つの シス テム を 接続 きせ る も の と いう こと に な り ま す 。 又 
1 に は , フロ ッ ピ ー 用 イン ター フェ ー ス (CZ- 8FA) が あり ます か ら , それ を セッ ティ ング し 
て くだ さい 。 


3. デジ タル テロ ッ パ (CZ- 8 Т) 

X 1 の 大 き な 特 徴 の ひと つ は , テレ ビ 放 送 の 画面 と コン ピュ ー タ で 作っ た 画像 の 重ね 合わ せ 
が で きる と いう 機能 に あり ます 。 こ の 機能 を スー パー イン ポー ズ 機 能 と いい ます 。 ス ー パ ー イ 
ン ポ ー ズ の 世界 を る ら 6 に 拡げ て くれ る の が デジ タル テロ ックス Y (CZ- 8 DT) СЗ 

デジ タル テロ ッ フ パパ を 使う と , テレ ビ 画 面 と コン ピュ ー タ 画面 を 重ね 合わ せ た も の を ビデ オォ に 
録画 し た り , ビデ オカ メラ か ら 送 られ て くる 映像 に コン ピュ ー タ の 画面 を 重ね て 録画 する こと 
が で きま す 。 た と えば , 自分 で 撮っ た ビデ オフ ィ ル ム の タイ トル を コン ピュ ー タ で 作っ て 重ね 
て 録画 し た り , 映画 の 字幕 スー パー の よう に 説明 文 を 入れ ん る こと も で きま す 。 デ ジタル テロ ッ 
パ と ビデ オ を 組み 合わ せれ ば , X 1 は , 家庭 の 中 だ け で は な くい ろ い ろ な 業務 で も 幅広 い 用 途 
を 持つ よう に な る で し ょ う 。 


X 1 の 周辺 機器 を 紹介 し て きま し た 。 これから は , これ ら す べ て を 含め た も の を 「X 1 シス 
テム 」 と 呼び , 本 体 と ディ スプ レイ の 組み 合わ せ を 「 基 本 シス テム 」 と 呼ぶ こと に し ます 。 
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21 ます は テレ ビ / 


みな さん の X 1 の ケー ブル は , 間違い な く 接 続き れ て いま すか 。 最 初 は チレ ビ を 見 る こと に 
し まし ょ う 。 ア ン テ ナ も し っ か り と つない で あり ます ね 。 で は , ディ スプ レイ テレ ビ CZ-800D 
の 電源 を 入れ まし ょ う 。 

ディ スプ レイ テレ ビ の 下 側 に スイ ッ チ が 並ん で いま す ( 図 2 - 1 )。 実 は , その 左側 は トビ ラ 
に な っ て いて , 中 に この ディ スプ レイ テレ ビ の 主 電 源 ス イッ チ が ある の で す 。 デ ィ ス プレ イ 本 
体 の 左側 面 を 軽く 引い て トビ ラ を 開け て くだ きい 。 

主 電源 と 書か れ た 赤い スイ ッ チ が あり ます 。 ス イッ チ を 「 入 」 に し ます 。 右側 に ある POWER 
(電源 ) と 書か れ た イン ジ ケ ー タ ラン プ が 赤く 〈 点 灯 し ます 。 ЖС, ディ スプ レイ 本 体 右側 の 電源 
スイ ッ チ を 押し て 《 だ さい 。 デ ィ ス プレ イィ 後面 の 映像 入力 切り か え ス イッ チ が TV 側 に な っ て 
いれ ば , チャ ン ネ ル 表 示 と と も に テレ ビ 放 送 が 映る は ず で す 。 

次 に , X 1 本 体 の スイ ッ チ を 入れ ます 。 本 体 の 背面 に ある メイ ン 電 源 ス イッ チ を ON に し ます 。 
本 体 正面 の 右側 の , 電源 スイ ッ チ も ON に する と 「POWER」 と 書か れ た イン ジ ケ ー タ ラン プ ' が 
赤く 点灯 し ます 。 
ディ スプ レイ の 画面 は 切り か わっ て , カセ ッ ト デ ッ キ の ドア が 開い て し まい まし た 。 だ いじ 
ょ うぶ , あな た の XX 1 は 正常 に 作動 し て いま す 。 あ わ て ず に , ドア を 閉め て 《 だ さい 。 私 た ち 
の 最初 の 目的 は , テレ ビ 放 送 を 見 る こと で し た 。 ゆっ くり と 確実 に 操作 を 覚え て いき まし ょ う 。 
X 1 の キー ボー ド に は , ずい ざん と だ くさ ん の キー が 並ん で いま す 。 こ れ ら の キー を 5 つの 
グル ー プ に 分 ける こと が で きま す 。 

上 の 方 に は 銀色 の テレ ビ コ ン トロ ー ル キー が 5 つ 並 ん で いま す 。 テ レビ を 見 る た め に は , 一 
番 右 側 に ある コン ピュ ー タ と テレ ビ の 切り か え ス イッ チ を 押せ ば よる そう で す 。 今度 は うま く 
いき まし だ た ね 。 こ れ ら の テレ ビビ コント ロー ルス イッ チ ヒ と 同 じ も の は , ディ スプ レイ テレ ビ の 方 
に も あり ます 。 チ ャ ン ネ ル も 音量 も この テレ ビビ コント ロー ルキ ー を 使っ て コン トロ ー ル する こ 
と が で きま す 。 試し て みか ま しょ う 。 
それ で は , メイ ン キ ー の 左右 に ある [SHIFT」 キ ー と 数 値 入力 キ ー の [3] を 一 緒 に 押し て くだ さき 
い 。 テ レビ の チャ ン ネ ル が 3 チャ ン ネ ル に 切り か わり まし た 。[SHIFT」 キ ー と 数 値 入 力 キ ー の [・ 
を 一 緒 に 押し て み ま し ょ う 。 先ほど の , テレ ビ を 映し 出す 以前 の 画面 に な り ま し た 。 実は , Z 
の 画面 は コン ピュ ー タ か ら 送 られ て いる も の な の で す 。[SHIFT] キ ー と 数 値 入力 キー の 目 を 一 
緒 に 押す と , 再び テレ ビ 放 送 に 切り か わり ます 。 [SHIFT] キ ー と 数 値 入 力 キー の 組み 合わ せ で , 
る さま ざま な 操作 が で きる こと が わか り ま し た だ た 。 表 に まとめ て お きま すか ら , 1 つ 1 つ だ めし て 
みあ まし ょ う (86-1); 
パソコ ン テ レ ビ X 1 」 と 呼ば れる 機械 の 「 テ レビ 」 の 部 分 を まず 見 て み ま し た 。 コンピ ュー 
タ 本 体 の 電源 も 入れ ず に , テレ ビ を 単 狐 で 使う こと も で きま す 。 し か し , この よう に コン ピュ 
ー タ を 通じ て テレ ビ を コン トロ ー ル し て みる と , この 機械 が 「 フ パソ コン テレ ビ 」 と 呼ば れる の 
も な る ほど と うな ず け ます 。 テレ ビ に 夢中 に な る 前 に , 今度 は パソ ユン の 方 も 見 て み ま し ょ う 。 
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2 HOW TO タッ チ X1/ 


(042-1) 
7 ント ガラ ス 回 定 ネジ 


プロ ント ガラ ス 


ヘッ ド ホ ー ン 端子 


調整 ボタ ン 
コン ピュ ー タ 映像 調整 つま み 順 送り 選 局 ボタ ン 
黒 レ ベル 調整 つま み 送り 選 局 ボタ ン 


色 の 濃 さ 調整 つま み チャ ン ネ ルコ ー ル ボタ ン 


色あい 調整 つま み コン ピュ ー タ ・ テ レビ 切換 え ポ タン 
映像 調整 つま み 主 電源 スイ タデ 


оо 


ЗЕ а-ы | 
表示 ラン プ 


主 電源 表示 ラン プ 


電源 入 一 切 ボ タン 


17 


ト ピラ 内 操作 部‏ ا 
い *‏ ?4 ا € 
UHF アン テ ナ (200 )‏ 
VHF ア ン テ ナ (756)‏ 
а = P‏ 
K р‏ 
Ен | 映像 入力 端子‏ 
映像 出力 端子‏ 
ишин |‏ 
映像 入力 (EXToTV)‏ 
電源 コー ド | | 切換 え ス イッ チ‏ 
ашп‏ 
音声 出力 端子‏ 
音声 入力 端子‏ 


ント ロー ル 信 号 入力 端子 ( 丸 型 8 ピ ン ・ コ ネ ク タ ) 
КОВ. 信号 入力 端子 ( 角 型 8 ピン ・ コ ネ ク タ ) 


888108111 


= 2 


-1 キー と 数 値 入 カキ ー の 組み 合わ せ 


(внет) ] キー を 押し な が ら 
キー を 押し な が ら 


Гөнет ] キー を 押し な が ら 
Сөнет ] キー を 押し な が ら 
キー を 押し な が ら 
[нєт] キー を 押し な が ら 
キー を 押し な が ら 
[smer ] キー を 押し な が ら 
キー を 押し な が ら 
(снет) キー を 押し な が ら 
(снет) キー を 押し な が ら 
キー を 押し な が ら 
(внет) キー を 押し な が ら 
нет) キー を 押し な が ら 
(sher) キー を 押し な が ら 


) 


を 押す と チャ ン ネ ル 1 が 選 局 で きる 。 


(о) ع‎ 


キー の 数 字 に 対応 し た チャ ン ネ ル が 選 局 で きる 。 


を 押す と チャ ン ネ ル 10 が 選 局 で きる 。 

を 押す と チャ ン ネ ル 11 が 選 局 で きる 。 

を 押す と チャ ン ネ ル 12 が 選 局 で きる 。 

を 押す と 音声 ミュ ー ト と な り も う 一 度 押 す と 解除 する 。 

を 押す と テレ ビ 放 送 と コン ピュ ー タ 画面 を 重ね 合わ せる 。 
を 押す と テレ ビ 画 面 に 切り か わる 。 

を 押す と コン ピュ ー タ 画面 に 切り か わる 。 

を 押す と 音量 が ノー マル 位置 に な る 。 

を 押す と 音量 が アッ プ し 押し 続け る と 最大 に な る 。 

を 押す と 音量 が ダウ ン し 押し 続け る と 最小 に な る 。 

Б) を 押す と チャ ン ネ ル ア ッ プ で 1 、 2 … 一 12 と 順次 変化 する 。 
(=) を 押す と チャ ン ネ ル ダ ウ ン で 12、11… 1 と 順次 変化 する 。 
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Е-е 722125 ) メタ ー ド 


@ カ ラッ ボ の 記憶 装置 


ここ で は , X 1 を パッ コン と し て 使う 方 法 を 見 て いき まし ょ う 。 

X 1 は , メ モリ が すべ て RAM で 構成 きれ て いま す 。RAM と いう の は , Random Access Memory; 
(ラン ダム ・ ア クセ ス ・ メ モリ ) の 略 で ,「 読 み 出 し や 書き 込み を 自由 に 行なう こと が で きる メ 
モリ 」 と いう 5 意味 に な り ま す 。 す べべ て の メモ リ が , 読み 出し や 書き 込み を 自由 に 行なえ る RA 
M で 構成 され て いる と いう の は , いっ だ い ど うい うこ と な の で し ょ う 。 

私 た ち は , フラ ンス 人 と 話 を する と き に は フラ ンス 語 を 使い 。 ドイ ツ 人 と 話 を する と き に は 
ドイ ツ 語 を 使い ます 。 同じ よう に , 私 た ち が コ ンピュータ と 話 を し な が ら , さま ざま な 指示 を 
し た り , 命令 を 与 を と たり する ため に は , コン ピュ ー タ 専用 の 言葉 を 使い ます 。X 1 で は , この 
よう な コン ピュ ー タ 専用 の 言葉 と し て ,「BASIC」 と いう も の を 用 いま す 。 

「BASIC」 は, 「Beginner's All Purpose Symbolic Instruction Code」 DTS., 初心 者 向 
іс, 多用 途 に 使 を コン ピュ ー タ 言語 と し て 開発 され た の が この BASIC で す 。 パソ コン の っ 
ンピュータ 言語 と し て は , BASIC が 今日 最も 一 般 的 に 使わ れ て いま す 。 同 じ 日 本 語 で も 地方 に 
よっ て 違い が ある よう に , BASIC で も パソ コン 間 で の 違い が あり ます 。X 1 で 使わ れる BASIC 
lk, 標準 的 な BASIC に , 高度 な グラ フィ ッ ク 処 理 や X 1 独特 の 機能 を 活か す た め の 命令 を や つけ 
加え た 非常 に 優れ た も の で す 。 こ の X 1 の BASIC は , 「SHARP-HuBASIC」 と 呼ば れ ま す 。 

АС, X 1 で は すべ て の メモ リ が RAM で 構成 きれ て いる と 説明 し まし た が , 電源 を 入れ た 
直後 の X 1 の メモ リ の 中 は 空っぽ に な っ て いま す 。 人 間 で いえ ば , 言葉 を し ゃ べ る こと の で き 
な い 赤 ん 坊 の 状態 で す 。 X 1 と 対話 を する た め に は , つま り , XX 1 を パソ コン と し て 使う た め 
СВ, まず , この メモ リ の 中 に コン ピュ ー タ 言語 を 覚え る せな けれ ば な り ま せん 。 RAM に 対し 
て ROM と いう も の が あり ます 。 こ れ は 「Read Only Memory」 ОС, 読み 出し 専用 メモ リ の 
意味 に な り ま す 。 読み 出し 専用 ほ い うか ら に は , ROM の 中 に は いつ で も 一 定 の 内 容 が 収め られ 
て いる わけ で す 。 一 般 の パソ コン で は , ROM の 中 に あら か じ め BASIC を 覚え る させ て お き , 電源 
を 切っ て も を の 中 の BASIC は 消え ず に 残る よう に し て いま す 。 私 た ち 人 間 も , 一 晩 眠 っ た か ら 
と いっ て , すっ か り 日 本 語 を 忘れ て し まう と いう こと は あり ませ ん 。 それで は な ぜ X 1 で は , 
電源 を 切る た びに メモ リ の 中 を 空っぽ に し て し まう の で し ょ うか 。 つ まり , すべ て の メモ リネ を 
RAM で 構成 し て いる の で し ょ うか 。 

コ ュ ンピュータ 言語 に は , BASIC の 他 に も 「FORTRAN」, 「COBOL」 な どき さま ざま な も の が 
あり ます 。 コ ンピュータ を 利用 する 目的 に よっ て , これ ら の コン ピュ ー タ 言語 は 使い 分 けら れ 
て いま す 。 た と えば , FORTRAN が 科学 技術 計算 用 , COBOL が 商業 事務 用 と いう 具合 で す 。 
メモ リ の 中 が 空っぽ で あれ ば , その つど コン ピュ ー タ 言語 を 覚え を きせ る 手間 は か か り ま す が , 
を その か わり , 目的 に あわ せ て メモ リ の 中 に いろ いろ な 言語 を 覚 を きせ て コン ピュ ー タ を 使う 
と が で きま す 。 私 た ち が , 必要 に 応じ て 日 本 語 を 使っ た り 英 語 を 使っ た りす る の に 似 て いま す 。 
X 1 で は , これ ら の コン ピュ ー タ 言語 を 使い 分 ける た め に , メモ リ の 中 を 空っぽ に し て いる の 
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で す 。 す で て の メモ リ を RAM に し て いる の は この た めで す 。 
@ パ ソコ ン X 1 スタ ー ト 


それ で は まず , X 1 を パソ コン と し て 使う た め に BASIC を X 1 の メモ リ の 中 に 覚え 込ま せま 
た よう 。 

X 1 に BASIC を 覚え 込ま せる に は , フロ ッ ピ ー デ ィ ス ク , ROM, カモ ッ ト テ ー プ を 用 いる 3 
っ の 方 法 を あげ る こと が で きま す 。 こ こ で は , X 1 の 基本 シス テム で 使え る カセット テー プ を 
利用 し まし ょ Э, 

X 1 本 体 の 電源 を 入れ る と ディ スプ レイ は 自動 的 に . コン ピュ ー タ か ら の 映像 を 表示 する よ 
うに 切り か わり ます 。 デ ィ ス プレ イ テ レ ビ の 電源 が 入っ て いな くく とも, XX 1 は 自動 的 に スイ ッ 
チ を ON に し て くれ ます 。 を そし て , X 1 本体 の カモ セット デッキ の ドア が 開き , 画面 2-1 の よう 
に た に? я 

айы (画面 2- 1 

Мәке ready any device 
Ризи Е, Е, С or T> Кеч 


Е: Е 1] ロロ ロロ 
R: РОМ 
C: CMT 
T: Timer 

X 1 は , 電源 を ON に し た と き に この よう な 動作 を する よう に , あ ら か じ め 命 令 さ きれ て いま す 。 
付属 の BASIC テ ー プ (CZ 8 CB01) を モット し て (この と き , CZ8CB01 と 書か れ た 面 を 手前 
に し て くだ きい ), カセ ッ ト デ ッ キ の ドア を 閉じ まし ょ う 。 す る と , テー プ が 自動 的 に 動き は じ 
め ま す 。 X 1 が メモ リ の 中 に BASIC を 読み 込ん で いる の で す 。 

フロ ッ ピ ー デ ィ ス ク や ROM が セッ ト さ れ て いる 場合 , X 1 は フロ ッ ピ ー, ROM, 2-70 
順に BASIC の 読み 込み 先 を る が し て いき , 接続 きれ て いる こと が 最初 に 分 か っ た 周辺 機器 か ら 
BASIC の 読み 込み を 開始 し ます 。 

BASIC の 読み 込み が 終わ る と , テー プ は 自動 的 に 巻き 戻さ れ 画面 2-2 の よう に な り ま す 。 
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2 HOW TO タッ チ X1 ノ 


X 1 を , BASIC の 命令 で 扱う こと が で きる よう に な り ま し た 。 こ こ か ら 先 は , みな さん か ら 
の 命令 で 1 の コン トロ ー ル を し な けれ ば な り ま せん 。 


*BASIC マ ニュ アル の 195 ペ ー ジ に , BASIC テ ー プ の 複製 (コピ ー) を 作る 方 法 が 書か れ て いま す 。 
この 方 法 に 従っ て BASIC テ ー プ の コピ ー を 作り , ふだん は コピ ー を 使う よう お すす めし ます 。 強 い 
磁気 に テー プ を 触れ る せる な どの 誤っ た 扱い を し て , BASIC テ ー プ の 中 身 が 壊れ て し まっ た と き や 
テー プ が ゆがん で し まっ た 場合 で も , も と の テー プ が 保管 し て あれ ば 安心 で す 。 


DDE DD арзанда жаракасы mmm 


メモ リ (memory) と は 

コン ピュ ー タ 関係 の 本 を 見 る と , よ ぐ 出 て こる な じみ の 深い 言葉 で す 。 日 本 語 に 直せ ば , те 
в 52014 「 記 模 装 置 」 と な り ま す 。 コ ン ピ ュ ユー マ タマ の 持つ て いる 情報 や , あな だ の 入力 し た 
情報 を 格納 する , コン ピュ ー タ に は 不可 欠 な 要素 が メモ リ で す 。 

コン ピュ ー タ の 働き の 中 心 と お る CPU( 中 央 演算 処理 装置 ) は , 一 度 に 多く の 情報 を 扱う こ 
と が で きま せん 。 そ こ で , メモ リ に 情報 を 格納 し て お き , 羽 要 な と き に 読み 出し て 処理 を し ます 。 
電話 帳 を 例 に あげ て み ま し よう 。 電 話 帳 に は た ご さん の 情報 (電話 番号 ) が つま つて いま す 。 ご 
の 電話 帳 の 全体 を メモ リ と 考え て こく だ さい 。 あ な だ が 電話 帳 を 開い て 和 め 要 な 電話 番号 を 調べ る 
よう に , コン ピュ ユー ダマ は メモ リガ ら 秘 要 な お 情報 を さがし て 読み 出し , その 情報 を 利用 し ます 。 
メモ リ に は Byte 単 位 で 番地 が つけ られ て いま す 。 電 話 帳 の ペー ジ の よう な も の で す が , メモ 
| リリ で は 1 つの 番地 に 1 つの 情報 だ けが 格納 され ます 。 

メモ リ に RAM と ROM が ある こと は , ご 存じ の と お り の で きす 。 X 1 СЕ, BASIC で も その 他 
の 高級 言語 の シス テム ・ プ ロブ ラム で も , すべ て RAM に 書き 込ま れ ま す 。X 1 の ROM に は 
| PL と いっ て , BASIC な どの シス テム ハム ・ プ ロブ ラム を 外部 記 憶 装置 か ら 読み 込ん で , RAM 
に 書き 込む 仕事 を する プロ プラム ガ が 格納 され て いま す 。 
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@ ア プリ ケー ショ ン テ ー プ を の ぞ き み 


BASIC の 読み 込み を 終え た X 1 は , あな た か ら の 命令 を 待っ て いま す 。 

きっ そく いろ いろ な 仕事 を る させ て みた いと ころ で す が , まず 最初 は , 付属 の アプ リ ケ ー シ ョ 
ン テ ー プ を 使っ て み ま し ょ う 。 

アプ リケーション テー プ を 本 体 の カモ ッ ト デ ッ キ に セッ ト し , [SHIFT] キ ー と [F 1] キー と を 
一 緒 に 押し ます 。F 1] か ら 6[F 5 の キー を , ファ ンク ショ ン キ ー と 呼び ます 。 

を それぞれ の ファ ンク ショ ン キ ー に は , X 1 を コン トロ ー ル する た め の 命 令 が 定義 きれ て いま 
す 。[SHIFT]+ Е ПВЕб を 表わし , [SHF] +E 相 は [F10| を 表わし ます 。 で すか ら , この 
5 つの ファ ンク ショ ン キ ー に , 全部 で 10 の 命令 が 収め られ て いる こと に な り ま す 。 

画面 に OK と 表示 され まし た か ? OK と 表示 る れ た だ たら, 今度 は IF 55 キ ー を 押し て くだ きい 。 
いか が で すか , 画面 に は X 1 の 美しい ロゴ マー ク が 現われ , 同時 に 楽し い 音 楽 が 流れ ます 。 

ここ で ファ ンク ショ ン キ ー の 機能 に つい て 少し 勉強 し て お きま し ょ う 。 

IF 6] (21%, LOAD 二 回 と いう 命令 が 定義 きれ て いま す 。 LOAD と いう の は , テー プ か ら ブ ログ 
ラム を 読み 込み な さい と いう 命令 で す 。 芝 は リタ ー ン キー を 表わし ます 。 上 F 引 キ ー に は , RUN+ 
(ДЕ 3 命令 が 定義 きれ て お り ,RUN は プロ グラ ム を 実行 し な さい と いう 命令 で す 。X 1 は LOAD 
や RUN な どの 命令 を 受け , リタ ー ン キー を 押さ る れ た と き に は じ め て , その 命令 の 動作 を し ます 。 
と ころ が 便利 な こと に ,F 引 キー に も 上 F6 包 キー に も , あらかじめ リタ ー ン キー を 押す の と 同じ 
内 容 が 定義 きれ て いま すか ら , あら ため て リタ ー ン キー を 押す 必要 は あり ませ ん 。 


表 2- 2 に BASIC テ ー プ を CZ 8 CB01 で 設 表 2 - 2 ファ ンク ショ ン キ ー の 内 容 

定 し て ある ファ ンク ショ ン キ ー の 内 容 を 示 、 
ファ ンク ショ ン | а 内 ファ ンク ショ ン 

жир Zr 設定 内 容 |7 設定 内 容 

KEY LIST 44 =] AUTO F 6 ОАО 
Алісе と, 画面 に 表 2-2 と 同じ 内 | E 2 PUMES FF | WDTH 

MM | | F 3 KEY F 8 CHR$ 
容 が 表示 る きれ ます 。 ど こ に 何 が 入っ て いる Ë 4 USTA Е Ө PALET 
か 覚え て し まえ ば 便利 で す が , 忘れ て し ま F 5 RUN A F10 CONTA 


つっ だ ら こ うし て ファ ンク ショ ン キ ー の 内 容 
を 呼び 出し て みて くだ さい 。 ま だ, ラベ ル を は っ て お くく の も よい 方 法 で す ( ラ ベル の は り 方 は , 
マニ ュ ア ル を 参考 に し て (だ きい )。 

272, BASIC テー プ で 設定 され て いな い 命 令 で , あな た が ひん ば ん に 使う 命令 が あれ ば , 2 
れ を あら だ た に ファ ンク ショ ン キ ー の 内 容 に 入れ る こと も で きま す 。 

たとえば, E 1| に PRINT と いう 命令 を 入れ て お きた いと いう と き に は , 次 の よう に し ます 。 
1. KEY LIST [で キー の 内 容 を リス ト す る 。 

2. カー ツル を AUTO” の A の と ころ まで 移動 きせ る 。 

3. [SHIFT」 キ ー を 押し な が ら PRINT と 入力 する 。 


PJ 
ЖЕ! 
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4. [SHIFT] キ ー を 押し な が ら [ 岬 を 押し , スペ ー ス キー 
で CHR$ (13) を 消す 。 
5. [を 押す 
сас, Е I に PRINT と いう 命令 が 入力 きれ ま し た 。 
それ で は , [SHIFT] キ ー+F 1 キー, 上 F 相 キー を 使っ て , アプ リケーション テー プ の 中 身 を 
の ぞい て み ま し ょ う 。 ア プリ ケー ショ ン テ ー プ の 中 身 を 見 る と X 1 の 特徴 的 な 機能 ちよ くわ か 
り ま す 。 


1. TITLE XI 

最初 に 画面 に 表示 され た X 1 の ロゴ マー ク は , X 1 の 特徴 的 な 機能 の 1 つ で ある , プロ グラ 
マブ ル ・ キ ャ ラク タ ・ ジ ェ ネ レー タ (PCG) に よっ て 描か れ て いま す 。 こ の 時 に 流れ る 音楽 も , 
8 オクターブ 3 重 和 音 を 発生 する シン セ サ イ ザ 機 能 に よっ て 演奏 る れ て いま す 。 画面 が 止ま り 
OK と 表示 され た ら , [SHIFT] > -+E 1] キ ー を 使っ て 次 の プロ グラ ム を 読み 込ま せ , E 5] キー 
で 実行 きせ ます 。 


2. TEST ХІ 
X 1 の 各 機 能 を チェ ッ ク す る 働き を , この プログ ラム は 持っ て いま す 。 万 一 故障 か と 思わ れ 
る よう な こと が 起き さき たら, この プロ グラ ム を 動か し て みる と よい で し ょ う 。 


3. TRAIN XI 

PCG で 描か れ た 新幹線 が , グラ フィ ッ ク で 描か れ た 電柱 の 間 を 走り ます 。 新幹線 は , こち ら 
の 電柱 と 向こう の 電柱 の 間 を 走っ て いる よう に 見 えま す 。X 1 の 特徴 的 な 機能 で ある プラ イオ 
リティ 機能 (優先 順位 機能 ) に よる も の で す 。 ま た だ , X 1 の 時 計 機 能 に よっ て 現在 時 刻 を 表示 
| © い ま す 。 


4. 3D DEMO XI 

グラ フィ ッ ク 処 理 に よっ て 円 板 を 積み 重ね た よう な 形 の コマ を 描き , これ も XX 1 の 優れ た 機 
能 で ある タイ リン グ ペ イン ト に よっ て , 明暗 を つけ て 塗り 分 け て いま す 。 タ イリ ング ペイ ント 
と は , ж, 緑 , 青 の 3 色 を 1 ドッ ト 単 位 ど で ペイ ント で きる も の で , この 機能 を 使う こと で 中 間 
色 ゃ や 締 模 様 を 出す こと が で きま す 。 だ た と え ぇ えば, 黄 緑 色 は 黄色 と 緑色 の 1 ドッ ト 単 位 で 交互 に 点 
灯 き せれ ば よい わけ で す 。 る きら に , パレ ッ ト 機 能 (図形 や 文字 の 色 を 一 緒 に 変え る 機能 ) と い 
う も の を 利用 し , あたかも コマ が 回 転 し て いる よう に 見 せ て いま す 。 これ に つい て は , 後 の 項 
で 詳し く 説 明 し ます 。 


5. 3D GRAPH XI 
立体 棒グラフ を 作り ます 。 ま た , PATERN 文 を 使っ て 漢字 の 表示 も 行なっ て いま す 。 ビジネ 
スプ ログ ラム を 作ろ うと する 方 は 。 この プロ グラ ム が 応用 で きる で し ょ う 。 
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6. BINGO ХІ 
これ は ゲー ム プ ログ ラム で す 。X 1 の 機能 を 活用 し た 美しい 画面 を 持っ て いま す 。 遊び 方 は , 
この アプ リケーション テー プ に 付属 し て いる 説明 書 を 読ん で くだ さい 。 


BASIC の 世界 へ の 第 一 歩 を 進め た 私 た ち は , この よう な プロ グラ ム が どの よう に 作ら れ て い 
る の か を , これ か ら 勉 強し て いき ます 。X 1 の 特徴 ある 機能 に つい て も , 徐々 に 勉強 し て いき 
まし ょ う 。 それ は 和 驚く ほど 奥深 い 世 界 で す が , それ だ け に 知る 楽し み も 大 きく , きっ と みな る 
ん を 愛 中 に る せる こと で し ょ 2 う 。 

「 今 すぐ X 1 の パッ コン 機能 を 活用 し た い 」 と いう 方 は , 市 販 さ きれ て いる パッ ケー ジ ソ フ ト を 
使う こと も で きま す 。 す で に 私 た ち は , パッ ケー ジッ フト を X 1 に 読み 込ま せる 方 法 も , 読み 
込ま きせ た プロ グラ ム を 実行 る せる 方 法 も 勉強 し まし た 。 パ ッ ケ ー ジ ッ フ ト を 動か し な が ら BASIC 
の 勉強 を 進め て いく こと も で きま すし , まだ , それ ら の プロ グラ ム の 内 容 は , これ か ら の 勉強 
に 大 変 参考 に な り ま すか ら , 積極 的 に 活用 し て くだ きい 。 


=-А スク リー ン の らく らく 編集 


@ カ ー ソ ル を 思い の まま 動か す 法 


実際 に プロ グラ ム を 自分 で 作っ た り , 雑誌 な ど に 出 て いる プロ グラ ム を 自分 で 試し て みる 場 
合 に は , 画面 を 見 な が ら 1 つ 1 つの キー を 押し て 入力 し て いき ます 。 慣 れ な いと な か な か 大 変 
で すし , いて くら 慣れ た 人 で も 打ち 間違え を る こと が あり ます 。 プ ログ ラム の 修正 を し な けれ ば な 
ら な いこ と も あり ます し , 部 分 的 な 削除 を 行なっ だ りす る こと も あり ます 。 こ の よう な 作業 を 
「 画 面 の 編集 作業 」 と いい ます 。 画 面 の 編集 は , すべ て カー ツル に よっ て 行ない ます 。 カ ー ソ 
- ル と いう の は 画面 上 で 点 減 し て いる 小さ な 四角 形 の こと で す 。 これ は 編集 作業 を する あな た の 
有 能 な 編集 助手 。 画 面 中 を 飛び 回 っ て , あな た だ の 命令 どおり に 動き ます 。 

58965, カー ツル を あな た だ の 思い の まま に 動か し て み ま し ょ う 。 

キー ボー ド の 右 の テン キー の 下 に 矢印 の つい た カー ツル コン トロ ー ル キー 避 | が あり ます の で 
押し て み ま し ょ う 。 カ ー ソ ツル が 1 文字 分 右 に 移動 し ます 。 ず っ と 押し 続け る と 走る よう に し て 
動い て いき ます 。 右端 まで くる と, カー ツル は 1 行 下がっ て 左端 に 現われ ます 。 В, カー ソ 
ル を 左 に 移動 きせ る キー で す 。 МЕ, カー ツル を 上 に 移動 きせ る こと は わか り ま す が , ВО 
キー と 異な っ て いく ら 押 し 続け て も , 最上 行 ま で 移動 し た ら カ ー ソ ツル は 止ま っ て し まい ます 。 
ШЕ, カー ツル を 下 に 移動 きせ ます 。 カ ー ソ ツル が 最 下行 まで いっ た と き , きら に 押し 続け る と 
画面 全体 が 上 に 流れ て いき ます 。 こ の よう に 画面 が 流れ て いく こと を スク ロー ル と いい ます 。 

カー ソル キー だ け に 限り ませ ん が , 同じ キー を 押し 続け る と, 画面 上 を 途中 で 休む こと な く , 
画面 の 端 ま びき て も 止ま る を こと も な 〈 く , ずっ と 動き 続け ます ね 。 

この 機能 を リピ ー ト 機能 ほし いい ます 。 

REPEAT OFF 
と 入力 し リタ ー ン キー を 押し て み ま し ょ う 。 こ の 機能 が 消 を て , いく ら キ ー を 押し 続け て も 1 
文字 分 し か カー ツル は 動き ませ ん 。 一 度 押し て 1 文字 分 だ け 移 動 , と いう の で は 面倒 で すか ら , 
元 に も と ど し ま し ょ う 。 

REPEAT ON 
と し て リタ ー ン キー を 押し ます 。 テ ン キ ー の 上 に ある | И аЬ, カー ツル は 画面 の 左 
上 角 に パッ と 飛ん で いき ます 。 ここ が カー ツル の ホー ム ボ ポジ ショ ン で す 。 [SHIFT] キ ー と | фе | 
キー を 同時 に 押す と, 画面 に 書い て ある 文字 が すべ て 消 を えて, カー ツル は ホー ム ポ ジ シ ョ ン に 
移動 し ます 。 


人 @ 文 字 の 挿入 と 削除 


カー ソル の 移動 より も ずっ と 大 切な 作業 が , 文字 を 挿入 し た り , 削除 し た りす る 編集 作業 で 
4 

まず , 文字 の 挿入 を し て み ま し ょ う 。 画 面 に あな た の 苗字 と 年 齢 を 書い て くだ きい 。 草 字 と 
年 齢 の 間 に 名 前 を 書き 入れ まし ょ う 。 年 齢 の と ころ まで カー ソル を 移動 し て いき , そこ で [SHIFT] 
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キー と | DEP ほ キー を 同時 に 押し ます 。1 文字 分 の 空白 が で きま すね 。 そ うし た ら , [SHIFT] キ ー 
を 押し な が 6|JRP キー を 挿入 し た い 文字 数 だ け 押 し ます 。 
РЕ. 
OOZORA16 (602-2) 

と 文字 が ある と き , A と 1 の 間 に 「HIBARI | ozon | т 
と 文字 を 入れ て み ま し ょ う 。 カ ー ソ ツル を 1 の 

と ころ に あわ せま す ( 図 2-2①)。 を こ で 

[SHFT]+| DEP |2 6 回 押し ます 。 する と , 2 00Z0RA[ ] Ж m 


ー ソ ル か ら 右 に 6 文字 分 空白 が で きま す の で 
(802), キー を 押し て A と 1 の 間 に HIBARI と 


шоко аныны б аш 00Z0RAHIBARII6 Ф 
文字 の 削除 を 行なう 場合 は 、 ス ペー スキ ー 


( 横 に 長く 一 番 大 き な キ ー で , スペ ー ス バー 

と も 呼び ます ) を 使う 方 法 や | БЁР キー と IE キ | DOZOBAHIBARI、.5 | š 
ー を 合わ せ て 使う 方 法 , [CTRL] キ ー を 使う 方 

法 が あり ます 。 先 ほど の, OOZORAHIBARI16 の 

16 を 例 に と る と , カー ツル を 1 の と ころ に 移 | 00Z0RAHIBARI6 © 
動 し て , スペ ー ス キー を 押し て いき ます 。 し 

か し , スペ ー ス キー を 使っ て 文字 を 消す と, 
そこ に 空白 が で どき て し まい ます 。 だ と えば , 
1 を 消し ます と , そこ に 1 字 分 の すき 間 が で 
きま す ( 同 ④)。 こ の 場合 , | DEP - ЕЭ 
と , 文字 を 削除 する と 同時 に その 右側 の 文字 
を つめ る こと が で きる の で す 。 カ ー ソ ツル を 6 
の と ころ に 移動 し ,| EC キー を 1 回 押し ます 。 
する と , カー ソル の 左 の 空白 が 削ら れ ま す ( 同 
(5). カー ソル の 右側 に 文字 び が あれ ば , その 全 
体 が 左 に 移動 し ます 。 キ ー を 押し 続け る と カ 
ー ソ ル は 文字 を 削り な が ら 6 左端 まで いき , 今 
度 は カー ソ ツル の 右 の 文字 だ けが 左 に 移動 し て , 
ちょ うど カー ソル に 吸い 込ま れる よう に 左端 
か ら 削 られ , 最後 に は すべ て を 削除 し て し ま 
いま す 。 


@ CTRL | キー は スク リー ン エ ディ ッ ト の スー パー スタ ー 
文字 を 削除 する こと は [CTRL] キ ー を 使っ て も で きま す 。[CTRL] + 回 と 押す と , その 行 の カ 
ー ソ ル か ら 右 が すべ て 消 を て し まい ます 。 また , [CTRL + と 押す と , カー ツル の 右 か ら そ の 
下 に ある 文字 を すべ て 消す こと が で きま す 。 [CTRL] キ ー は を その他 た くさ ん の スク リー ン エ ディ 
ー3g 一 ай: авйяй га 
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ッ ト 機 能 を 持っ て いま す 。 こ れ を 表 2-3 に 整理 し て み ま し た 。 
プロ グラ ム の 作成 と いう の は , АЛЫ, 実行 し て エラ ー を 発見 し , る さらに, スク リー ン エ デ 
ィ タ に よっ て 修正 を 行なう と いう 作業 の 繰り 返し で す 。 ス クリ ー ン エディ ッ ト 機 能 を 一 度 に 覚 
えて いく の は 大 変 で す が , これ ら の 作業 を 通し て 自然 に 覚え を て いき ます か ら , あま り 心 配 せ ず 
с, で きる だ け キ ー ボ ー ド に 触れ る よう に し まし ょ う 。 

表 2 - 3 [CTRL| キー の スク リー ン エ ディ ッ ト 機 能 


カー ソル が 1 ワー ド 分 ずつ 右 へ 移動 。 

カー ソル が 1 ワー ド 分 ずつ 左 ^ へ 移動 。 

水平 タダ ビュ レー ショ ン を 設定 。 

CIRO + D で 設定 し た 位置 に カー ソル を 飛ば す 。 

(стац + M で 設定 し た 位置 で この キー を 押す と , その 位置 だ け 水 平 タ ビュ 
レー ショ ン が 解除 され ます 。 

この キー を 押し た 行 と 次 の 行 を つなげ る 。 

カー ソル の ある 位置 か ら 右 の 文字 を ライ ン フ ィ ー ド し て 次 の 行 に 移す 。 . 
カー ソル の ある 行か ら 上 の 文字 を 上 方 向 に スク ロー ル す る 。 

カー ソル の ある 行か ら 下 の 文字 を 下方 向 に スク ロー ル す る 。 

リタ ー ン キー と 同じ 。 


< 日 日 回 回 


W 
(J) 
(М) 
(С) 
М 
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思 = 牛 お セツ トド デ ー ン の コラ トド ロール 


⑯ カ セット テー ブ プ 活 用 法 


本 体 に カセ ッ ト デ ッ キ が 内 蔵 さ れ て いる と いう の も X 1 の 大 き な 特 徴 で す 。 こ の カセ ッ ト デ 
ッ キ を 活用 で きる よう に , いろ いろ な し くみ や 命令 が 用 意 る きれ て いま す 。 

X 1 付属 アプ リケーション テー の よ うに, いく つか の プロ グラ ム が 記録 きれ て いる テー プ 
の 内 容 を 知り た い 場 合 は , ШОЕ) в と キー イン し て , リタ ー ン キー を 押し ます 。 テー プ を 最 
初 ま で 巻き 戻し た 後に . テー プ を 送り な が ら プ ログ ラム 名 を 次 々 に 表示 し て いき ます 。 試 し て 
АР 

目的 の プロ グラ ム が 見 つか っ た ら 6, キー ボー ド の 右側 に ある 数 字 キ ー の 上 に ある カセ ッ ト コ 
ント ロー ルキ ー を 使っ て テー プ を 止め み ま すす 。 カ セッ トコ ント ロー ルキ ー に は 巻き 戻し [4 4), 
то (юр), 停止 【 画 )】 の 3 つが あり ます 。 KC APSHA と キー イン し て み ま し ょ う 。 
キー イン し たら リ ター ン キ ー を 押し ます 。[SHIFT | キー と 〔W @] キ ー を 一 緒 に 押し て も 同じ で す 。 
この 操作 で , 目的 の プロ グラ ム が 記録 され て いる 最初 の 部 分 まで , テー プ を 巻き 戻し て くれ ま 
+, ここ で LOAD 命 令 と RUN 命 令 を 使 を ば プロ グラ ム が 実行 きれ る こと は , も う ご 存 じ の と お り 
で す 。 こ こ で は , 別 の 方 法 を 試し て み ま し ょ う 。 

ВОМПООСАВО L と キー イン し て みて くだ さい 。 プロ グラ ム を 読み 込ん だ 後 , X 1 は 自 
動 的 に アプロ グラ ム の 実行 を は じ め ま す 。 

も し , ブ ログ ラム の 名 前 が 最初 か の ら わ か っ て いる と き に は , DOAN Z775 LEI * 
ー イ ン し ます 。X 1 は , テー プ を 早送り し な が ら 目 的 の プロ グラ ム を る が し , 見 つけ た と ころ 
で 自動 的 に 読み 込み を は じ め ま す 。 

RUN `CAS: プロ グラ ム 名 “と する と , テ ー プ を 早送り し な が ら 目 的 の プロ グラ ム を る が し て 
くれ ます 。 見 つけ た と ころ で 自動 的 に ロー ド し た 後 , X 1 は 実行 も し て くれ る の で す 。 


Ф SHIFT | キー で テー プ を 操作 


も う 一 度 , カモ セッ トコ ント ロー ルキ ー を 見 て み ま し ょ う 。 こ の 3 つの カセ ッ ト コ ント ロー ル 

キー は , [SHIFT] キ ー ミ 合 わせ る こと で 6 つの 働き を 行ない ます 。 

[4 34) キー は テー プ の 巻き 戻し を し ます 。 BASIC で REW と い う 命令 を も 与 を た と き に も 同じ 働 
き を し ます 。 試し に 阿 回 MM と キー イン し て リタ ー ン キー を 押し て みて くだ さい 。 KU [SHIFT] 
キー と 〔W 4] キ ー を 一 緒 に 押し て み ま し ょ う 。 こ うす る と , APACE と 同 じ く , ブロ グ 
ラム の 最初 の 部 分 まで テー プ が 巻き 戻る され ま す 。 

【 圏 ] キ ー は テー プ の 走行 を スト ッ プ し ます 。[SHIFT] キ ー と 一 緒 に 押す と , カセ ッ ト デ ッ キ 
の ドア が 開き ます 。 EJECT と い う 命 令 で も 同じ 動作 を し ます 。【〔 キー と [SHIFT |] キー を 一 緒 
に 押す と , [AJÍPJ[SIISIHJI1] と 同じ く , 次 の り の プログラム の 最初 の 部 分 まで 早送り し ます 。 な か な 
か 複雑 で すか ら 表 に まとめ て お きま し ょ う ( 表 2-4)。 
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表 2-4 カセ ッ ト テ ー プ の コン トロ ー ル 


| | es | の 
で REW APSS 一 1 

カセ ッ ト テ ー プ の 巻き 戻し 命令 前 の プロ グラ ム の 頭 出し 
ЕЗ STOP EJECT 

カセ ッ ト テ ー プ の 走行 停止 命令 カセ ッ ト デ ッ キ の ドア を 開く 
wa FAST APSS+1 


カセ ッ ト テ ー プ の 早送り 命令 次 の プロ グラ ム の 頭 出 し 


@ び CMT で テー プ を 回 せ 


CMT と いう 命令 文 も も あり ます 。 こ れ も カ セッ ト テ ー プ を コン トロ ー ル する だ め の 命 令 で す 。 命 
令 の 後に 書く 数 字 に よっ て いろ いろ な 働き も を X 1 に る せる こと が で きま す 。 こ れ も 表 に まとめ 
таз: ГОТ, 1221429 (%2-5), 

OMME ほす る と, カセ 表 2 - 5 CMT に よる カセ ッ ト コ ント ロー ル 
ッ ト の 中 の プロ グラ ム を 消去 し ま カセ ッ ト デ ッ キ の ドア を 開く 。 
す 。 カ セッ ト テ ー プ の 爪 が 折っ て 走行 停止 
あれ ば , 間違え て 消し て し まう こ 
と も あり ませ ん か ら , プロ グラ ム 早 戻し 
を 入れ だ カモ ッ ト テ ー プ の 爪 は 必 頭 出し ( 順 方 向 ) 
то сив, E 

ここ まで 見 て き 窟 よう た に, KI 
の カセ ッ ト デ ッ キ は すべ て キー ボー ド か ら 操 作 す る こと が で きま す 。 そ し て BASIC の 中 に も REW 
や FAST の よう に さま ざま な カセ ッ ト コ ユ コントロール の 命令 文 が ある の で す 。 最 後に APSS と いう 
命令 文 に つい て だ け 補 足し て お きま す 。 

APSS の 後に は , 十 50 か 6 ら 一 50 ま で の 数 字 を 書く こと が で きま す 。APSS 十 3 と すれ ば , ブロ グ 
ラム を 2 つ 飛 び 越 えて 3 つ 目 に ある プロ グラ ム の 頭 出し を し ます 。 い き な り カセ ッ ト テ ー プ の 
コン トロ ー ル の 説明 を され て も … と 思う 人 も いる か も し れ ま せん が , これ ら の 機能 は XX 1 な ら 
で は の も の で , 大 変 便利 に 使う こと が で きま す 。 プ ログ ラム 作り が 進む に つれ て , これ ら 6 の カ 
セッ トコ ント ロー ル 命 令 が 活躍 する よう に な り ま すか ら , ぜひ 覚え て くだ さい 。 


| 
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е-е X] の も う ひ こつ の 機能 


る @ パ ソコ ン 時 計 X 1 ? 


パソ コン テレ ビ X1 が が, テレ ビ と パソコン の 2 つの 機能 を 持っ て いる こと は , 今さら あら な た 
め て いう まで も あり ませ ん 。 X 1 は , この 2 つの 機能 を いっ そう 活躍 きせ る た め に 時 計 機 能 も 
持っ て いま す 。 時計 機 能 ほ と いう の は , クロ ッ ク 機 能 ほ と タイ マー 機能 の こと で す 。 ク ロッ ク 機 能 
も タイ マー 機能 も X 1 の 本 体 に 内 蔵 さ れ た 電池 に よっ て バッ クア ッ プ る され て いま す 。 コン ピュ 
ー タ や ディ スプ レイ の 電源 を 切っ て も, この 機能 は 電池 の お か ば げ で 働き 続け て いる と いう こと 
で す 。 こ の 電池 は , 自動 的 に 充電 する タイ プ の も の で すか ら 変 換 の 必要 は あり ませ ん 。 

で は これ ら 6 の 機能 を 呼び 出し て み ま し ょ う 。 

X 1 に BASIC を 読み 込ま せる 前 で あれ ば , 田 キ ー を 押す だ け で 呼び 出す こと が で きま す 。BASIC 
を ロー ド に し た 後 で あれ ば , ABK と キー イン し て リタ ー ン キー を 押し ます 。 画面 は 次 の よぅ 
に な り ま す 。 


(ат 2-3) 


ТМ Timer control 


83706714 WED 10:34:54 


TIMER1 KK AKA ккк BRE KK OFF 
TIMER2 ХХИХХ ХХХ KXXX OFF 
TIMER3 パパ ノン KK ххх кк: кк OFF 
TIMER4 ххх ххх кк: кх OFF 
TIMERS ХАЛХА KKK RANE KK OFF 
TIMER6 хх КХХ ХХі KK ОКЕ 
ТІМЕН? KKZ/KK ххх HAE KK ОРЕ 


Month 681 = 12 ог XX 
ГЕЗС1 +Еж1+, [LCLR] -Кезе+, LCR] =5е+ 


現在 の 年 / 月 / 日 / 曜 日 , 時 : 分 : 秒 が 表示 され て いま す 。 こ れ が クロ ッ ク 機 能 で す 。 あ な た の 
X 1 の クロ ッ ク 表 示 は 合っ て いま すか ? 合っ て いな けれ ば , 正しく 設定 し 直し まし ょ 3. 

0 か 6 ら 9 まで の 数 値 入力 キー を 一 般 に テン キー と 呼び ます 。 テンキー の 下 の 矢 印 が 書か れ た 
4 つの キー を カー ソル キー と 呼ぶ こと は も う ご 存 じ で すね 。 

それ で は , カー ツル キー を 使っ て , カー ソル を クロ ッ ク 表 示 の 左端 に 移動 きせ まし ょ う 。 年 / 
月 / 日 / 曜 日 時 : 分 : 秒 の 順に キー イン し て いき ます 。 時 刻 は 24 時 間 制 で 表示 し て いま す 。 時 
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刻 を 正確 に 合わ せる に は , た と えば 午後 3 時 23 分 を 少し 過ぎ た と ころ で あれ ば , クロ ッ ク 表 示 
を , 15 : 24:00 と し て お き , 電話 の 時 報 な ど を 聞き な が ら 24 分 ちょ うど に な っ た 瞬間 に リタ ー 
ン キ ー を 押し ます 。 こ れ で 秒 ま で 正確 に 合わ せる こと が で きま し た 。 


@ タ イマ ー を セッ ト 


次 に タイ マー 機能 を 見 て み ま し ょ う 。 タイマー 機能 は , テレ ビ 放 送 の 「ON/OFF」 を 設定 す 
る も の で す 。 特 定 の 月 日 の ある 時 刻 を 指定 し た り , 毎日 決ま っ た 時 刻 を 指定 し て テレ ビ の 「ON/ 
OFF」 を コン トロ ー ル し た り で きま す 。 こ の タイ マー 機能 に よっ て テレ ビ が ON に な っ た 場合 
ュ ン ピュ ー タ を 使用 中 で も , 画面 は 自動 釣 に テレ ビ 放 送 に 切り か わり ます 。 こ の タイ マー 機能 
を 利用 すれ ば , プロ グラ ム 作 りや ゲー ム に 夢中 に な っ て いて も , X 1 は 忘れ ず に テレ ビ 放 送 に 
切り か えて くれ ます 。 

タイ マー の 設定 は , カー マル の 位置 に 従っ て 「 月 / 日 / 曜 日 , 時 : 分 , ON/OFF」 を 書き 込む 
だ け で す 。 リタ ー ン キー を 押す と , タイ マー が セッ ト さ れ ま す 。 一度 セット し た タイ マー を 解 
除 す る に は , [SHIFT] キ ー と [CLRI] キ ー ま た は , [CLRL] キー と 旧 キー を 一 緒 に 押し ます 。 

内 蔵 時 計 に モッ ト る れ て いる 年 月 日 , 時 刻 , 曜日 は BASIC か 6DATE$, TIME$, DAY$ と い 
う 関数 で 呼び だ し て 利用 する こと が で きま す 。 ま た , 作っ た プロ グラ ム を テー プ な ど に 記録 す 
る と , 年 月 日 , 時 刻 , 曜日 も 自動 的 に 記録 きれ ます 。 こ れ ら の 日 付け な ど は , FILES に よっ て 
見 る こと が で きま す 。 こ の と き に 記録 きれ て いる 内 容 の 種類 も 表示 され ます 。 Bas と 表示 きれ る 
の は BASIC の プロ グラ ム , Asc は アス キー 形式 で 記録 きれ た プロ グラ ム や デー タ , Bin は 機械 語 
で 記録 きれ た プロ グラ ム や デー タ を 示し ます 。 


25 патаа1й1 ー 37— 


2-7 タイ マー 機能 で 
テレ ビ を コン ト に ロール / 
@BASIC の 命令 で テレ ビ を コン トロ ー ル 


キー ボー ド か ら テ レビ の チャ ン ネ ル や 音量 を 直接 コン トロ ー ル する 方 法 を 見 て きま し だ た から, 
今度 は , BASIC の 命令 に よっ て テレ ビ を コン トロ ー ル し て み ま し ょ 2 う 。 

スペ ー ス キー の 横 に に じ 85 記 (キャ プス ロッ ク ) キー が あり ます 。 こ の キー を 押す と , 画面 に は 
大 文字 どけ が 表示 きれ る よう に な り ま す 。 小 文字 を 表示 させ る と き に は , [SHIFT] キ ー と 文字 キ 
ー を 一 緒 に 押し ます 。 

を それでは, キー ボー ド か ら 次 の よう に 打ち 込ん で くだ さい 。 

TVPW ОМ 

画面 が 切り か わり , テ レビ 放送 を 映す よう に な り ま し た 。TVPW は , テ レビ の 電源 の 「ON/OFF」 
指示 する 命令 文 で す 。 き て パソ コン か ら の 映像 は 見 え を なくなっ て し まい まし た が , X 1 で は 
テレ ビ と パソ コン の 両方 の 画像 を 重ね 合わ せ て 表示 する こと も で きる の で す 。 試し て み ま し ょ 
5. [SHIFT]| キ ー と テン キー の 田 を 一 緒 に 押せ ば よい の で す が , ここ で は BASIC の 命令 文 を 使 
っ て , 同じ こと を X 1 に 実行 きせ て み ま し ょ う 。 

画面 が 見 を ませ ん か ら 十 分 に 注意 し て , 次 の よう に 打ち 込み ます 。 

ORM [2 

テレ 放送 の 画面 に 重なっ て , 今 打ち 込ん だ 文字 が 表示 る れ ま す 。CRT は , ディ スプ レイ テ 
レビ を コン トロ ー ル する た め の BASIC の 命令 文 で す 。 この 命令 文 は , (2-5) で 学ん だ CMT 命 
令 と 同じ よう に , 後に 書く 数 字 に よっ て きま ざま な 働き を し ます ( 表 2-6)。 


CRT 命 令 で は , 後に 書く 数字 を 省略 し て 表 2 6 CRT 命令 に よる 画面 天 示 
は いけ ませ ん 。 な ぜ こ ん な こと を わざ わ n 画 面 表 示 
ざ 注 意 す る の か と いう と, X 1 の BASIC 0 | テレ ビ 放 送 を 表示 。 
1 コン ピュ ー タ 画面 を 表示 。 
に は , 後に 書く 数 字 を 省略 し て も よい 場 | сат | 2 | テレ ビ 放送 の コン トラ スト を 下げ て . 
合 が ある か ら で す 。 正 確 に いえ ば 省略 コン ピュ ー タ 画面 を 重ね て 表示 。 
し て も BASIC を ロー ド し た 直後 の 標準 的 3 | テレ ビ 放 送 と コン ピュ ー タ 画面 を 同時 


に 重ね て 表示 。 


な 状態 へ 自動 的 に セッ ト さ れる だ け の 命 

令 文 が あり ます 。 VOL と いう 命令 は , 音量 を 変え る 命令 で . この 1 つの 例 で す 。 後に 書く 数 字 を 
省略 する と , 標準 的 な 音量 に な り ま す 。CRT 命 令 で は , 後に 書く 数 字 を 省略 する と 誤り (エラ ー) 
5 が る て そし まい ます 。 

この よう に , 命令 文 の 後に 書い て 命令 の 内 容 を 指示 する 数 字 を オペ ラン ド (演算 数 ) と いい ま 
す 。 

き て , CRT 2 し キー イン する こと で , 画面 に ナレ ビ 放 送 が 映し 出さ れ て いて も , 2 3 XX 
1 は あな た か ら の 命令 を 待っ て いる こと も 分 か り ま し た 。 BASIC テ ー プ を ロー ド し て いる 間 や 
テレ ビビ 放送 を 見 な が ら 待つ こと も で きま す 。 
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だ ん だ ん と パソ コン テレ ビ X 1 の 優れ た 機能 が わか っ て きだ た こと で し ょ う 。 双 1 の 特徴 を 活 
PLT, テレ ビ を コン ピュ ー タ で コン トロ ー ル する 「 テ レビ 24 時 間 了 予約 プ ログ ラム 」 を 作る た 
め の 下 準備 は これ で 整い まし た 。 

プロ グラ ム の 第 1 歩 は く < ぐ っ くり と 確実 に 学ん で いく こと >。 そ うす れ ば , X1 も BASIC も プ 
ログ ラム 作り の テク ニッ ク も , 必ず みな る ん 自身 り も の に な り ま すか ら , ここ は ひと つ 腰 を す 
えて じっくり 取り 組ん で くだ さい 。 


me ma ma ma ma ma ma 


算術 演算 子 
X 1 で は , 計算 に 使う 記号 (算術 演算 子 ) は 次 の 表 の よう に な り ま す 。 


算術 演算 子 | 演算 内 容 | 優先 順位 普通 の 計算 


乗 算 (X) 
в %(-) 


めん だ ね めも ーー 


i 


КУЗ. ЗОИ СХЗ. Ж”) 
Аж 3, A*B (AX3, AX B) 
A/12, A/B( た だ し ,B キ 0) | (A そ 12, A+B) 
=A 

A+B 

В-В А-В 

10% 3 

32.8М007.25 


マイ ナス 符号 
Шш #(+) 
Ж 算 (一 
整数 除算 
剰余 演算 


т の + + OO N N سم‎ 


一 は その まま で すね 。 メ は * に , 二 は プ に な り ま す 。 累乗 演算 の と き は , へ の 後に べ キ 乗数 
を 書き ます 。 だ と えば 16 “だ つっ だら 16 へ 2 と 表わし ます 。 また , 変わ つ だ 演算 子 で \ と MOD が 
答 の 整数 部 (小数 点 以 下 は 切り 捨て られ ます ) を 結果 と し て 表示 し ます 。 

[16.6\3.2 っ 17\3 ミ =5 | 
MOD は \ と 同様 な 計算 を し ます が , \ と 違 つて 整数 で 割 つ を た とき の 未 り を 表示 し ます 。 
16.6MOD3.2 っ 17MOD3=2 (175 3= 5 ---ж0 2) 
\ の 結果 MOD の 結果 

この 2 つの 演算 子 は 使い 万 仕 第 で は と て も 役に立ち ます 。 

表 に 優先 順位 と いう 欄 ガ あり ます が , 計算 式 を 書い だ 際 、 こ の 優先 順位 の 高い (数 字 の 小さ 
い ) 順に 計算 され ます 。 優先 順位 が 等 し い 場合 は を が ら 順 に , まだ ( ) で 囲む と , その 中 の 演算 
を 先 に 行ない ます 。 
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5-1 プロ グラ ム と は こん な も の 


@ プ ログ ラム と は こん な も の 


まず 次 の よう に 打ち 込ん で みて くだ さい 。 

10 CRT 0 

これ まで と 違っ て , リタ ー ン キー を 押し て も 何 も 起 こり ませ ん 。 

前 に 「CRT 0」 と キー イン し た と き に は , リタ ー ン キー を 押す と ディ スプ レイ の 画面 が テレ 
ビ 放 送 に 切り か わり まし だ た 。 ところが, ここ で は 何 も 起 こり ませ ん 。 

この 前 に つい て いる , 10 と いう 数 字 に 秘密 が あり そう で す 。 

これ まで 学習 し て きた と ころ で は , キー ボー ド か ら 命 令 を 打ち 込ん で リタ ー ン キー を 押す L, 
直ちに その 結果 が 画面 に 現われ まし た 。 上 直ちに 結果 が 現われ る 使い 方 を 「 ダ ダイ レク トモ ー ド 」 
と 呼び ます 。 それで は , すぐ に は 結果 の 現われ な い 「10 СЕТ 0」 と いう の は , いっ た い 何 な の 
で も よう が 。 

実は , これ が プロ グラ ム と いう も の で す 。 先頭 に ある 数 字 は , 行 番号 (ライ ン ナ ン バ ー) と 
呼ば れる も の で , パッ コン に 仕事 を る せる 順序 を 示し ます 。 こ の 行 番号 の 後に 命令 文 を 書き , 
リタ ー ン キー を 押し て いく と, パソ コン の メモ リ の 中 に 仕事 の 内 容 や 手順 が 記憶 きれ て いき ま 
す 。 こ の 操作 を プロ グラ ミン グ と か コー ディ ング と いい ます 。 す で に は 結果 が 現われ な い の で 
少し つま ら 6 ない 気 も し ます が , この 「 プ ログ ラム 」 に こそ コン ピュ ー タ の 特徴 で ある , 無限 の 
可能 性 が ある の で す 。 プ ログ ラム の 仕方 を 覚え る こと が 面倒 で 退屈 で あっ て も , プログ ラム に 
よっ て 必ず X 1 が , あな た の 手足 と な っ て 働い て くれ る よう に な り ま すか ら , 頑張 っ て じ っ く 
り 覚 えて くだ さい 。 

Са, さっ そく 次 の プロ グラ ム を 打ち 込ん で みて くだ さい 。 


18 CRT @ 

20 S=9 

36 FOR 1=1 TO 4444 
40 S=S+I 

50 PRINT 6 

る 9 NEXT I 

70 CRT 2 


プロ グラ ム と は , 簡単 に に うと , パソ ツッコ ン に 内 容 と 順序 を 指定 し た , ひと まとまり の 命令 の 
こと で す 。 しかし, 一 度 パ ツッコ ン の 中 に 覚え こま せ た プ ログ ラム は 私 た ち が そ れ を 消去 する 命 
令 を 与え を な い 限 り い つま で も 記憶 きれ て いま す 。 で すか ら 6 パッ コン に , 何 度 で も 同じ 仕事 を 繰 
り 返 し て 実行 きせ る こと が で きま す 。 

それ で は 今 記憶 き させ た プロ グラ ム を 実行 きせ て み ま し ょ う 。 プ ログ ラム を 実行 きせ る 命令 は 
RUN で す 。 

プロ グラ ム を 実行 する と ,. ディ スプ レイ は いき な り テ レビ 画面 に 切り か わり まし だ た 。 しばら 
くす る と , テレ ビ 放 送 の 画面 に 重なっ て 「9876790」 と い う 5 数 字 が 表示 され ます 。 これ は , 1 か 
ら 4444 ま で の 整数 を 全部 足し 算 し た 答 で す 。 ノ パパ ソコ ユン が , この 足し 算 を し て いる 間 , テレ ビ を 
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楽し ん し ん で いた だ いた と いう わけ で す 。 

これ は , 必要 に 応じ て テレ ビ 画 面 を 選択 し た り , コン ピュ ー タ の 画面 を 映し 出し た り , ある 
い は その 両方 を 重ね あわ せ だ りす る こと が で きる と いう , X 1 の 機能 を BASIC で の プロ グラ ム 
で コン トロ ー ル で きる の だ と いう 実例 で びす 。 プ ログ ラム の 内 容 は 順次 理解 し て いけ ば よい で し 
ょ う 。 と ころ で , いま , あ な た の ユン ピュ ー タ 画面 は テレ ビ 放 送 と 重なっ た まま で すね 。[ SHIFT ]+ 
[|( こ れ は テン キー に つい て いる ほう を 使い ます ) で 元 の ユン ピュ ー タ 画面 に 戻す こと が で き 
ます 。 


@ コ マン ド と ステ ー ト メン ト の 人 違い は ? 


プロ グラ ム の 勉強 に 本 格 的 に 入る 前 に , コン ピュ ー タ ょ と の 対話 に 大 切な 命令 語 に つい て ちょ 
っ と 知っ て お いて ほし いこ と が あり ます 。 今 まで RUN, LOAD な どの 命令 が で て きま し た ね 。 こ 
れ を 「 コ マン ド (COMMAND)」 と いい ます 。 日 本 語 に 訳す と 「 命 令 」 と いう 意味 に な り ま す 
が , 行 番号 を つけ て プロ グラ ム の 中 に 書き 入れ る こと は 原則 と し て で きま せん 。 一 般 に , 外 か 
ら プ ログ ラム に 働き か け を する 命令 文 で す 。 
これ に 対し て , PRINT や NEXT の よ う に プロ グラ ム の 中 に 行 番号 を つけ て 書き 込む も の を 「 ス テ 
ー ト メン ト (STATEMENT) と いい ます 。 日 本 語 に 訳す と 「 記 述 」 と いう 意味 に な り , 行 番 
号 を つけ る こと に よっ て , さま ざま な 仕事 を まとめ て コン ピュ ー タ に 命じ る こと が で きま す 。 
RUN 命 令 で 走ら せ て コン ピュ ー タ に 仕事 を る せる 状態 を 「 ス テー トメ ント レベ ル 」, コマ ンド を 
使う 状態 を 「 コ マン ドレ ベル 」 と 呼び ます 。 コ マン ド と ステ ー ト メン ト の 違い を 簡単 に 書き 表 
わす と 次 の よう に な り ま す 。 
ステ ー ト メン ト ……PRINT 文 や END 文 の ょ うに , 行 番号 を つけ て プロ グラ ム の 中 へ 書 


(STATEMENT) き 込 む 命 令 文 。 ダイ レタ トモ ー ド で 使え る ステ ー ト メン ト も あ 
A 8. 
し gS Ree 原則 と し て , 行 番号 を つけ て プロ グラ ム の 中 へ 書き 込む こと は 
(COMMAND) で き な い 。RUN, LIST, NEW の よう に 外 か ら プ ログ ラム へ 働き 
か け を する 。 
る @ プ ログ ラム と 材料 


今度 は , テレ ビ の チャ ン ネ ル を BASIC の プロ グラ ム で コン トロ ー ル し て み ま し ょ う 。 ま す , 
先ほど 入力 し た プロ グラ ム を X 1 の メモ リ か ら 消 去 し ます 。 

NEW 
と キー イン し て くだ さる い 。 

NEW は ,「 新 し い 仕事 に 切り か を る ぞ 」 と いう 命令 で す 。 つ まり , NEW は , 現在 記憶 きれ て い 
る プロ グラ ム を 消去 し て し まう 命令 で す 。 プ ログ ラム が 消去 され, X 1 は 次 の 命令 を 待っ て い 
ます 。 それ で は , 次 の プロ グラ ム を 打ち 込ん で くだ さい 。 

文字 を 打ち 間違え た ら , カー ツル キー を 上 手 に 使っ て 修正 し ます 。 表 示 き る れ た 文字 の 位置 に 
カー ソル を 移動 し , 1 行 打 ち 込 ん だ どら 6 忘れ ず に リタ ー ン キー を 押し て くだ さい 。 リ ター ン キ ー 
を 押 き な いで , その まま 続け て 次 の 命令 を 打ち 込ん で し まう と , コン ピュ ー タ は 前 に 打ち 込ん 
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だ 命令 と 次 に 打ち 込ん だ 命令 の 区 切り が わか り ま せん 。 区 切り の サイ ン を コン ピュ ー タ に 送っ 
て や ら 5 ね ば な り ま せん 。 こ れ が リタ ー ン キー と いう わけ で す 。 

10 INPUT СН 

28 сет © 

За CHANNEL СН 

48 GOTO 18 

プロ グラ ム を 実行 する と, 「?」 マ ー ク が 表示 る され ま す 。 テンキー で 希望 する チャ ン ネ ル の 数 
を 入力 し て リタ ー ン キー を 押す と , 画面 は を の チャ ン ネ ル の テレ ビ 放 送 に 切り か わり ます 。 他 
の 数 字 キ ー を 押し て も う 一 度 リ ター ン キ ー を 押し て みて くだ さい 。 間違い な く 《 く チャン ネル が 切 
89549 b 5 

これ まで 見 て きだ よう に , リタ ー ン キー を 押す まで コン ピュ ー タ は 反応 し ませ ん 。 リターン 
キー は プロ グラ ム の 行 の 終わ りや , デー タ の 終了 合図 を コン ピュ ー タ に 送る 役割 ちち っ て いる 
こと が これ で わか り ま し た 。 と 同時 に , プロ グラ ム を 使う と ダイ レク トモ ー ド と は 異な っ て , 
一 度 入力 すれ ば 何 度 で も 繰り 返し 同じ 仕事 を る きせ る こと が で きる の も わか り ま し た 。 

それ で は , この プロ グラ ム の 中 身 あ じっくり と 見 て み ま し ょ う 。 

行 番号 10 の と ころ (10 行 と 呼び ます ) の INPUT 文 は , パソ コン が 人 間 か ら の デー タ の 入力 を 必 
要 と する と き に 使う 命令 びす 。 デ ー タ と いう の は , 材料 の こと で す 。 

料理 の こと を 思い 浮か で て み ま し ょ う 。 最初 に 新鮮 な 材料 を そろ えな けれ ば な り ま せん 。 
_ 次 に その 材料 を 加 1- し , 手順 に 従っ て 調理 あ を し ます 。 プ ログ ラム が 料理 の 手順 で , 材料 の 加 
は プロ グラ ム の 中 で の デー タ 処 理 に あたり ます 。 

この プロ グラ ム で は , コン ピュ ー タ が チャ ン ネ ル を 選択 する の で は な く 〈, 人 間 の 希望 する チ 
ャ ン ネ ル を 入力 する よう に な っ て いま す 。 入力 を 待ち 構え る の が INPUT 文 で す 。 料理 で いえ ば , 
こ で 材料 を 鍋 に 入れ る と いう こと に な り ま す 。 ブ プロ グラ ム を 実行 する と , XX1 は 「?」 マ ー 
ク を 表示 し て デー タ を 入れ て くれ と 要求 し て きま す 。 

INPUT 文 は , 
INPUT 変数 
と いう 形 で 使い ます 。 こ の プロ グラ ム で は 希望 する チャ ン ネ ル を CH と いう 変数 に 入れ て いま す 。 
いき な り 変 数 と いう 言葉 を 持ち 出し て し まい まし た が , 先 に 進む 前 に , どの よう な プロ グラ ム 
に も 欠か すこ と の で き な い 変数 と し いう も の を 調べ て お きま し ょ 5 


念 変 数 っ て な ん だ ? 


変数 と いう の は , プロ グラ ム の 実行 に よっ て 変化 する 数 で あり , 何 か の 値 を 収め て ぉ 〈 ПС 
す 。 

変数 の 反対 は 定数 で す 。 定 数 と いう の は , 文字 どおり 定まっ た 数 の こと で す 。 プ ログ ラム を 
実行 し て も, その 中 で 使わ れ て いる 定数 は 常に 一 定 で す 。RUN 命 令 で プロ グラ ム を 実行 し た と た 
ん に 4 が 5 に な っ た だ た り 、 5 が 6 に な っ だ りす る よう な こと は あり ませ ん 。 

変数 は , これ に 対し て 自由 に 変え た られ る 数 な の で す 。 で すか ら 数 を の も の と し て 考え る より 
5, 数 の 記憶 場所 , デー タ を 収め て お 〈 箱 と 考え た 方 が 正確 な の で す 。 

ъс, この 変数 に は 2 つの 種類 が あり ます 。 数値 変数 と 文字 列 変数 で す 。 数 値 変数 と いう 釘 
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に は , 数 値 し か 入り ませ ん 。 数値 し と いう の は , その まま 四則 の 計算 が で きる も の で , 言い か え 
れ ば , 量 を 表わす 数 の こ と で す 。 文 字 列 変数 に は 文字 列 ど けが 入り ます 。 文字 列 と いう の は 住 
所 や 名 前 な どの 文字 の 並び で す 。 

BASIC に は LET 文 と に う も の が あり ます 。 次 の プロ グラ ム を 見 て くだ さい 。 
18 LET A=4 
га 日 =3 


30 C=A+B 
40 PRINT C 


ここ で 使わ れ て いる 「A」,「B」,「C」 が 数 値 変数 で す 。LET 文 は , 右辺 を 左辺 に 代入 し ろ と 
いう 指示 を する ステ ー ト メン ト で す 。 で すか ら 「A ニ 3」 は 「A は 3 に 等 し い 」 と いう 意味 に 
は な り ま せん 。A が 3 に 等 し い の で あれ ば ,「3 ニ A」 と 書い て も よる そう で す が , BASIC で は, 
この よう に 書け ば , エラ ー (誤り ) と な り ま す 。20 行 と 30 行 で は LET 文 を 省略 し て いま す が , 20 
行 は 変数 B に 3 を 代入 し な る いと いう こと で あり , 30 行 は 変数 C に 変数 A の 値 と 変数 B の 値 の 
和 を 代入 し な る いと いう こと を 意味 し て いま す 。 な お , LET は 完全 省略 ステ ー ト メン ト な の で プ 
ログ ラム の 中 に 書か な く て も か まい ませ ん 。 40 行 の PRINT 文 は , C と いう 変数 の 中 身 を 画面 に 表 
示し な る いと いう 意味 に な り ま す 。 こ の プロ グラ ム を 実行 する と , 画面 に は 「C」 と いう 文字 
で は な て ,「7」 と いう 数 値 が 表示 され ます 。A も B も C も 数 値 変 数 で ど あ る こと , つま り 数 値 を 
入れ る た め の 箱 で ある こと を , も う 一 度 思い 出し て くだ さい 。 

それ で は , 別 の プロ グラ ム を も う 1 つ 見 て くだ さい 。 

10 A=" Ip" 
28 ВФ= "Ту ХІ" 


за С%=А5+8% 
48 PRINT СЪ 


前 の プロ グラ ム と 異な る 点 が いく つか あり ます 。 ここ で 使わ れる 「A$」,「B$」, TCS が 文字 

変数 な の で す 。 文字 変数 は , 文字 を 入れ る た め の 専 用 の 箱 で す 。「$ 」( ダ ラー マー ク ) を つけ 
с, 数 値 変数 で は な いこ と を 表わし て いま す 。 LET, 右辺 を 左辺 に 代入 し な る いと いう 指示 で 
ある こと は も うわ か り ま し た 。 それ で は , AWO T” 」 は 何 な の で し ょ うか 。 数値 と 文字 列 を 
区 別 す る た め に , この クォーテーション マー ク を 使う の で す 。 た と えば , 数 字 も 文字 で びす から 
文字 列 と し て 使う よう な 場合 も あり ます 。 数値 と いう の は 量 を 表わす 数 の こと で すか ら , 電話 
番号 の よう な も の は 数 値 で は な 〈, 数 字 の 文字 列 と いえ ます 。 「135」 は 数 値 で びす が , これ を 「”"」 
(ダブ プル クォーテーション ) で 囲っ て 「“135" 」 と し て や れ ば 文字 列 と し て 扱う こと が で きる 
よう に な り ま す 。 試し に , 前 の プロ グラ ム の 「 “パッ コン "」 を 「“135"」「 “TV X1"」 を 
「 “248" 」 と 書き か えて , プロ グラ ム を 実行 し て みて くだ さい 。 数 と 数 と の 足し 算 で は な く , 
文字 列 の 結合 が 行なわ れる こと が わか り ま す 。 


信 変 数 の 名 前 


変数 の 名 前 は , その 内 容 が すぐ に わか る よう に つけ て お く の が よい で し ょ う 。 た だ だ し , 従わ 
な けれ ば な ら な い ル ー ル が いく つか あり ます 。 

まず , 変数 の 名 前 は どれ も アル ファ ベッ ト で は じ ま ら な けれ ば な り ま せん 。 最 初 の 文字 が ア 
ルフ ァ ベ ッ ト な ら , 後 は 英文 字 ・ 数 字 ・ カ タカ ナ の と どれ で も 使え ます 。 グ ラフ ィ ッ クス な どの 
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記号 は 使え を ませ ん 。 

最初 の 文字 が アル ファ ベッ ト で あっ て も 使え な い 英 数 名 も あり ます 。 それ は , コマ ンド や ス 
テー トメ ント な ど , あら か じ め X 1 が 持っ て いる BASIC の 言葉 で す 。 こ れ ら を 予約 語 と いい ま 
To 82%, た と えば 合計 を 「GOUKEI」 や , 「TOTAL」 な ども 変数 に 使う こと は で きま せん 。 
「GO」 や 「TO」 の 予約 語 が 先頭 に つい て いる か ら で す 。 

これ ら の 約束 さえ 守れ ば , 240 文 字 ま で の 範囲 で 自由 に 変数 の 名 前 は 決め る こと が で きま す 。 
し か し , あま り 長 い 名 前 を つけ て も メモ リ の 無駄 使い に な り ま すか ら , わか る 範囲 で 省略 し て 
お く こ と も 必要 で す 。 

また , 数 値 変数 と 文字 変数 に は ,「$」 が ある か な いか の 違い し か あり ませ ん 。 で すか ら ,「KOTAE」 
と 「KOTAE $」 は 別 の も の と し て 扱わ れ ま す が , あま り に 長い 変数 名 で は か えっ て わか り に く 
く な っ て し まい ます 。 


@ これ が 最初 の プロ グラ ム !! 


寄り 道 が 少し 長く な っ て し まい まし た 。 も う 一 度 , チャ ン ネ ルコ ント ロー ル の た め の ブ ログ 
ラム を 見 て み ま し ょ う 。 


18 INPUT СН 
20 СЕТ а 

за CHANNEL СН 
48 5070 18 


10 行 で CH と いう 変数 に 希望 する チャ ン ネ ル の 数 値 を 入れ て いま す 。 を その た だ た め の 命 令 が INPUT 
文 で す 。 変数 CH に デー タ を 入れ な る いと いう 意味 に な り ま す 。 で すか ら プ ログ ラム を 実行 する 
L, X1 は 「?」 マ ー ク を 表示 し て 「 デ ー タ は 何で すか ? 」 と 問い か け て くる の で す 。 

20 行 で は , ディ スプ レイ の 画面 を テレ ビ に 切り か えて いま す 。 CRT 文 を , これ まで は ダイ レク 
トモ ー ド で 使っ て きま し た が , この よう に プロ グラ ム の 中 で 使う こと も で きま す 。CRT 0 は 画面 
に テレ ビ 放 送 を 表示 る せる 命令 で す 。 

30 行 で は , CHANNEL と いう 命令 で テレ ビ の チャ ン ネ ル を 切り か えま す 。 こ れ も ダ イレ クト モ 
ー ド を 使っ て きた 命令 で す が , プロ グラ ム の 中 で 使っ て いま す 。 注 目 し た い の は 変数 CH を CHANNEL 
文 の 後に な いて いる こと で す 。 キ ー ボ ー ド か ら 入 力 し た 数 値 を いっ た ん 変数 CH の 中 に し まっ て 
お き , ここ て 改め て CHANNEL 文 の 指示 の た め に 変数 の 中 の 数 値 を 使う の で す 。 

40 行 で す が , ここ で は GOTO 文 を 使っ て いま す 。 この 40 行 で は 10 行 へ 行け と 指示 し て いま す 。 
GOT0 文 は 次 の よう な 書き 方 を し ます 。 

(6070 行 番 号 | 

GOTO 文 の 後に つけ た 行 番号 へ 進め と いう 指示 で す 。 コ ンピュータ は 行 番号 の 順に 仕事 を 行 な 
っ て いき ます (と いう より も , 行 番号 は ユ コンピュータ に さき せる 仕事 の 順番 な の で す が )。 GOTO 文 
を 使う こと に よっ て 行 番号 で の 次 の 行 に で は な く , 他 の 行 へ と プロ グラ ム を 進め る こと が で き 
ます 。 こ こ で は , プロ グラ ム の 流れ を 10 行 に 戻し て いま す 。 X 1 は , 10 行 で 再び チャ ン ネ ル の 
入力 を 待つ こと に な り ま す 。 40 行 の GOTO の 文 の な か げ で , この プロ グラ ム で は 何 度 で も チャ ン 
ネル を 切り か える こと が で きる の で す 。 

これ で プロ グラ ム と いう も の , そし て その し くみ が だ いた いわ か り ま し た 。 
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3 テレ ビ 24 時 間 予 約 プ ログ ラム 


@LIST で プロ グラ ム を 確認 


ST, もう一度 今 の プロ グラ ム を 見 て み ま し ょ う 。 を その 前 に プロ グラ ム の 実行 を 停止 し て デ 
ィ ス プレ イ を テレ ビ 放 送 か ら , コン ピュ ー タ に 切り か を な けれ ば な り ま せん 。 プ ログ ラム の 実 
行 を 停止 する に は , [SHIFT ] キ ー と [ BREAK | キー と を 一 緒 に 押し ます 。 デ ィ ス プレ イ テ レ ビ の 画 
面 の 切り か ぇ は, も う ご 存 じ で すね 。 

СВ, LIST と キー イン し て リタ ー ン キー を 押し て くだ さい 。LIST は , プロ グラ ム を 表示 し な る 
いと いう 命令 で す 。 し ば し ば 使う 命令 な の で , ファ ンク ショ ン キ ー の 4 番 ([F4]) に , この 命 
令 が 定義 きれ て いま す 。 プ ログ ラム を 表示 きせ る こと を 「LIST を と る 」 と いい ます 。 こ の ブロ グ 
ラム に 次 の よう な 行 を 1 つつ け 加 えま す 。 プ ログ ラム の 一 番 下 の は ずれ に カー ソル が 点 減 し て 
いて ちょ っ と 気 に な り ま す が , そこ に いき な り 書 いて も か まい ませ ん 。 

5 PRINT "TV O MIYOU" 

入力 し た な 6, もう一度 LIST を と っ て 〈 く だ るい 。 行 番号 5 は ちゃ ん し 行 番号 10 の 上 に き て いま す 。 
X 1 は , 行 番号 の 順に プロ グラ ム の 整理 も や っ て くれ る の で す 。 

ここ で , も う 一 度 プ ログ ラム を 実行 し て みて くだ さい 。 画 面 に は , CTV O MIYOU」 と 表示 る 
Nn, その 下 に 「 ? 」 マ ー ク が 表示 され ます 。PRINT は , 画面 に 表示 せよ と いう 命令 で す 。 画 面 に 
表示 る せる 内 容 を 「”"」 で 囲っ て 示し て や り ま す 。 ま た 。, 

10 Аі? 

28 В%= "74" 

ЗО PRINT а, 8% 

の よ うに 変数 の 中 身 を 表示 る せる こと も で きま す 。 と どの よう な プロ グラ ム で も 必ず と いっ て よ 
い ほ ど 使 われ る 命令 な の で , 双 1 で は 「?」 マ ー ク 1 つ で 代用 る せる こと が で きる よう に な っ 
て いま す 。 [SHIFT ] キ ー と [BREAK | キー を 一 緒 に 押し て , も うぅ 一 度 プ ログ ラム の 実行 を 止め , A 
度 は 次 の よう に キー イン し て み ま す 。 

18 INPUT "CHANNEL" ;CH 

この よう に キー イン し て リタ ー ン キー を 押す と , これ まで の 10 行 が 上 の よう に 新 し 〈 書 き 直 
きれ ます 。 本 当 に 書き 直る きる れ た か どう か , LIST を と っ て 確か め ま し ょ う 。 

[F4 | キー を 押し て プロ グラ ム を 画面 に 表示 きせ て み ま し ょ う 。 プ ログ ラム の 10 行 が 確か に 書 
き 直 さる れ て いま すね 。 


5 PRINT "ту ü MIYOU" 
18 INPUT "CHANNEL" $ CH 
20 CRT а 

39 CHANNEL CH 

48 GOTO 10 


@ プ ロン プ ト 文 で X 1 と 対話 

それ で は この プロ グラ ム を 実行 し まし ょ う 。 

「TV O MIYOU」 と 表示 る れ た 下 に , 今度 は 「CHANNEL?」 と 表示 る れ ま し た 。INPUT 文 まで 
プロ グラ ム の 流れ が や っ て くる と , X 1 は クウ ェ ス チョ ンマ ー ク を 表示 し て デー タ の 入力 を 求 
め ま す 。 しかし, クウ ェ ス チョ ンマ ー ク だ け で は プロ グラ ム を 作っ た 人 は と も か くく と し て , fh 
の 人 に は 数 値 な の か , 文字 な の か , どの よう な も の を 入力 し て や れ ば よい の か 分 か り ま せん 。 
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そこで 「CHANNEL」 と 画面 に 表示 きせ て お き , ここ に は チャ ン ネ ル を 入力 する の だ と 教え る よ 
うに し て いる の で す 。 こ の は よ うな 変数 の 注意 書き を プロ ンプ ト 文 と 呼び ます 。「 ” 」 で 囲ん だ メ 
ッ セ ー ジ が その まま 表示 きれ ます か ら , プロ ンプ ト 文 を うま 〈《 使 うと プロ グラ ム を 実行 し た と 
き の 操 作 は と て も 楽に な り ま す 。 ま た , ブロ ンプ ト 文 と 変数 の 区 切り に 使っ て いる 「: 」( セ ミ 
any) を 「 。」( カ ンマ ) に する と , クウ ェ ス チョ ンマ ー ク が 表示 る され な く な り ま すか ら う ま 
《 使い わけ まし ょ う 。 

PRINT 文 ІМРОТХ ІЁ, これ か ら の プロ グラ ム の 中 で も し ば し ば 使い は す 。 そ の つと 使い 方 を 
理解 する よう 努め て くだ さい 。 


っ めか だが め や -ー ニ ーー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー 


r 

) 

) 変数 名 に つい て 

BASIC で プロ プラ ム を 作る と き に は , 必ず と いつ て よい ほど 文字 列 を 入れ る 箱 を 用 意 し な け 
れ ば な り ま せん 。 ご の 箱 を 変数 と 呼び ます 。 

) プロ プラ ム が ガ 大 きぐ な つて 変数 ガ が な くさ ん に な る と , 整理 が な い へ ん で す 。 そ こ で , 変数 に 
! 名 前 を つけ て , あな た が どの 変数 に 何 を 入れ を な ガ わか りや すぐ し ます 。 ご この 名 前 を 変数 名 と い 
! いま すみ 。 

I 変数 名 を つけ る と き , 注意 し な けれ ば な ら な いこ と が いこ つが あり ます 。 

% 3827, 変数 名 は アル ファ ベッ ト で は じ ま ら な けれ ば な り ま せん 。 あ と は アル ファ ベッ ト と 数 
! 字 ( カ タカ ナ や ブラ フィ ッ ク 記 号 も 使え ます ) を 組み 合せ て 240 文 字 ま で の 名 前 を つけ る こと が 
! で きま す 。 EIGO と か S58 ネン と いう よう に , わか りや すい 名 前 を つけ る こと も で きる の で すき 。 
アル ファ ベツ ト で は じ め る と いう こと の 他 に , も う 1 つ 大 き な お 約束 が あり ます 。X 1 の BASIC 
+ に は 予約 語 と いつ て , 変数 名 に 使っ て は いけ な い 言 葉 が あり ます 。 予約 語 と いう の は , X 1 の 
¦! BASIC に 登録 きれ て いる RUN, GOTO, PRINT な どの 命令 (コマ ンド , ステ ー ト メン ト ) 
l お よび , CHRS, SIN, COS な どの 関数 の こと で す 。 ま だ , TO, STEP, TAB な ども 予 
約 語 に 含ま れ ます 。 

) この 予約 語 は 変数 名 に 使う こと は で きま せん が , HGOTO 4, X 1CHRS の よう に 変数 名 
! の 一 部 で あれ ば か まい ませ ん 。 た だ し , ご の と き 予 約 語 を 先頭 に ち も つ て き て は いけ ませ ん 。GOKE 
| と か TOTAL な ご ど は, つい 間違え て つけ て し まい そう な 例 で す 。 

この よう お 約束 を 守れ ば , 変数 名 は 自由 に つけ られ ます から, あな だ の プロ グラ ム に あれ わせ 
) て わ ガ りや すい 名 前 に し まし よう 。 だ だ , あま り 長 いも の は , メモ リ を 多く 使う こと に な り ま 
I すし , 打ち 込む と き に だ い へ ん で す の で , сеъковоа «>, 
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ш 
бә 


ае: IFXZUZ27Z2E =-= 


@ 内 蔵 時 計 の 時 刻 TIMES 


いよ いよ 「 テ レビ 24 時 間 了 予約 プロ グラ ム 」 の 制作 開始 で す 。 テ レビ 24 時 間 予 約 プ ログ ラム は 
X 1 の 機能 を 活か し て BASIC の 命令 で テレ ビ を コン トロ ー ル し ょ うと いう も の で す 。 

まず , 希望 の 時 刻 に テレ ビ の スイ ッ チ を ON に する こと を 考え て , その 部 分 だ が どけ を ひき うけ る 
小 き な プロ グラ ム を 作っ て み ま し ょ 27 

X 1 に は , 本 体 や デイ スプ レイ の 電源 を 切っ て も 働き つづ ける 内 蔵 時 計 が あり ます 。 この 時 
計 が 希望 の 時 刻 を 示し た と き に TVPW ON の 命令 を 実行 る きせ れ ば よい で すね 。 

10 PRINT TIME$ 
と 入力 し て み ま し ょ う 。 行 番号 が つい て いま すか ら , これ は プロ グラ ム の 一 部 分 で す 。 

PRINT 文 は , 画面 に 文字 や 記号 , 変数 の 値 や 計算 の 結果 な ど を 表示 し な る いと いう 命令 文 で す 。 

TIME$ は , X 1 の 内 蔵 時 計 の 時 刻 を 呼び 出す 関数 で す 。 TIME$ は 変数 の 一 種 で 内 蔵 時 計 の 時 刻 
を 入れ る 専門 の 箱 だ と 思っ て くだ さい 。 こ の プロ グラ ム は TIME$ と いう 箱 の 中 の 値 ( つ まり , 現 
在 の 時 刻 ) を 表示 せよ , と いう 意味 に な り ま す 。 そ れ で は RUN る せ て み ま し ょ う 。 画面 に は 現在 
の 時 刻 が 表示 る れ ま す 。 

た と えば , 15 時 14 分 12 秒 と 表示 きれ た としま しょ う 。 それ で は 15 時 20 分 に テレ ビ の スイ ッ チ 
を 入れ る に は どの よう な 方 法 が ある で し ょ うか 。TIME$ の 中 身 が 15 : 20 : 00 に な っ だ た とき に ,「TVPW 
ON」 の 命令 を 実行 きせ れ ば よい で し ょ う 。X 1 に 現在 の 時 刻 が 15 : 20 : 00 で ある か どう か を 判 
断 き せる と いう 作業 が この プロ グラ ム の 中 心 に な り ま す 。 


@⑧ コ ンピュータ は 考え る 


ュ コンピ ュー タ の 持つ も っ と も 優れ た 能力 の 1 つが , この 「 判 断 」 や 「 選 択 」 の 機能 で す 。 私 
た ち 人 間 が ,「 晴 れ て いた ら , 野球 を し ょ よう 」「 バ ー ゲ ン セ ー ル で 安い か ら , 菱 を 買お う 」 と 考 


えて 行動 する の と 同じ よう に , 定め られ た 条 表 3-1 比較 演算 子 

件 に 従っ て 判断 する こと が コン ピュ ー タ に は 

で きる の で す 。 A と B は 等 し い 
どの よ ょ うな 方 法 で 判断 や 選択 を 行なう の か A の 方 が B よ り 大 きい 

を 見 て いき まし ょ う 。 (B の 方 が A より 小さ い ) | 

5 B の 方 が A よ り 大 きい 

ある 条件 を 判断 きせ よう と する と き BASIC А соны ЕЛІН) 

で は IF 文 と いう も の を 使い ます 。IF と は , 英語 A の 方 が B よ り 大 きい か , 


の 「 も し も 」 で す 。 上 F 文 は , ; また は 等 し い 
IF 一 THEN… 4...” 
と いう よう に , 常に THEN と 一 緒 に 使い ます 。 
THEN と いう の は , や は り 英 語 で 「 を それ で は 」 
「 そ の とき 」 ほ いう 意味 で す 。ー に は 条件 を авесто 


A と B は 等 し く な い 
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書き , … に は 条件 が 成り た っ た と き に 行なう 仕事 を 書き ます 。 

コ ュ ン ピュ ー タ は コン ピュ ー タ の 言葉 で 考え ます か ら , 条件 も 2 つの 変数 の 比較 を する と いう 
独特 の 書き 方 を し て や ら ね ば な り ま せん 。 た と えば 「IF A ニ >B」( も し も , A が B 以 上 だ っ た だ 
6), ПЕ X く 10」( も し も 又 が 10 未 満 だ っ た ら ) と いう 形 で す 。 こ の 比較 の 方 法 を 表 に まとめ て 
みみ まし よう (63-10; 

条件 が 成り 立た な いと き に は , THEN か ら 後 の 「…」 を 無視 し て 次 の 行 ま で 進み ます 。BASIC 
の プロ グラ ム は 行 番号 の 順に 実行 され ます か ら , 次 の 行 に 別 の 仕事 を 書い て お け ば ,IF 文 の 条件 
が 成り 立た な か っ た と き に は X 1 は そちら の 仕事 を する わけ で す 。 明 日 晴れ た ら 6 野球 を し よう , 
晴れ な か っ た ら 6 映画 を 観 よ うと いう の と 同じ で す 。 き っ そく 試し て み ま し ょ う 。 

28 IF TIME$="15:20:00" THEN TVPW ОМ 

RUN る せ て み ま し た だ た か? よほど 運 が よい 場合 を 除い て , テ レビ の スイ ッ チ が ON に な る こと 
は あり ませ ん 。 こ れ は , IF の 後 の 条 件 が 成り 立た な か っ た 場合 の こと を 考え て いな いた めで す 。 
晴れ た ら 野球 を し ょ うと 決め て いた が, 雨 が 降っ た と きのこ と を 考え て お か な か っ だ た と いう よ 
うな も の で す (RUN る せ た 時 間 に た また だ たま 条件 が 成り 立て ば , テレ ビ の スイ ッ チ が 入り ます けれ 
ど )。 そ れ で は , 次 の よう に キー イン し て てく だ さい 。 
за GOTO 1а 

これ が 10 行 へ 行け と いう 指示 で ある こと は , すでに 述べ まし た 。 実行 する まえ に プロ グラ ム 
の 全体 を 見 て み ま し ょ う 。 


19 PRINT TIME$ 
28 IF TIME$="15:28:D8" THEN ТУРЫ ОМ 
за GOTO 19 


10 行 で , 現在 の 時 刻 を 画面 に 表示 し , 20 行 で その 時 刻 が 15 時 20 分 00 秒 で ある か どう か の 条件 
を 判断 し て いま す 。 こ こ で 「“"」 を 使う 理由 は 後に まわ し て , IF 文 の 勉強 を 先 に すま せ て し まい 
まし ょ う 。 条 件 が 成り 立た な いと き に は , THEN か ら 後 を 無視 し て 30 行 へ 進み , 30 行 で は 再び 最 
初 の 10 行 へ 戻り ます 。 こ の プロ グラ ム は , 20 行 の 条件 が 成り 立つ まで 同じ 1 つの 環 の 中 を ぐる 
ぐ で る と 回 りつ づけ て いま す 。 こ の よう な プロ グラ ム の 環 を 「 ル ー プ 」 と いい ます 。 Z UT, ЕХ 
の 条件 が 成り 立つ と THEN の 後ろ の に ある 「TVPW ON」 を 実行 する と いう わけ で す 。 

と ころ で , TVPW ON を 実行 し た 後 , この 
プロ グラ ム は どう な っ だ の で し ょ うか 。 

プロ グラ ム は 必ず 行 番号 の 順に 実行 きれ 

る と いう 大 原則 が あり まし た 。20 行 の IF 文 で 
条件 が 成立 し て , テ レビ の スイ ッ チ を ON に 
し た 後 , この プロ グラ ム は 原則 どおり 20 行 
へ 進ん どの で す 。 を し て 30 行 か ら 10 行 に 戻 
り , も う 一 度 IF 文 の 条件 を 判断 し て 30 行 へ 進 
み ま た 30 行 か ら 10 行 に 戻り …… これ で は 終 
わり が な く , プロ グラ ム は 同じ 環 の 中 を 無 
限 に 回 りつ づけ て し まい ます 。 い つま で 待っ て も , 疲れ 知ら ず の コン ピュ ー タ で すか ら 仕 事 を 
途中 で や め て し まう と いう こと が あり ませ ん 。 こ の よう に 終わ り が な い プ ログ ラム の 環 を 「 無 


TIME$ は 
15:20:00»? 


қ 
гә 


3 テレ ビ 24 時 間 予 約 プ ログ ラム 


限 ル ー プ 」 と いい ます 。 
無限 シー プ に 入っ て し まっ た プロ グラ ム の 実行 を 止め る に は , [SHIFT | キー と [ BREAK | キー を 
一 緒 に 押す か , [CTRL | キー と [C] キ ー を 一 緒 に 押し ます 。 


@END x GOTO 


F 文 を 使う と き に は , 

① 条 件 が 成立 し た と き 

② 条 件 が 成立 し な か っ た と き 

③ 条 件 が 成立 し , 決め られ た 仕事 を 終わ っ た 後 の 処 理 
の 3 つの 点 に 注意 を し て , どの 場合 に も 不都合 が な が いよ うに し て お か な けれ ば な り ま せん 。 こ 
こ で は ③ を 忘れ て いた わけ で す 。 テ レビ の スイ ッ チ を ON に すれ ば も うこ の プロ グラ ム を 動か し 
続け る 必要 は あり ませ ん 。 プ ログ ラム の 実行 を 終わ りな さい と いう 指示 も , BASIC の 中 に 用 意 
され て いま す 。 END 文 で す 。 END 文 は 文字 どおり 終わ り を 示し , ここ まで きた ら 6 どん な ブロ グラ 
ム も 止ま っ て し まい ます 。 次 の 2 つの プロ グラ ム を 前 の プロ グラ ム と よく 比べ て みて くだ さい 。 
プロ グラ ム @⑳ 


18 PRINT TIMES 
20 IF TIME$="15:20:00" THEN ТУРИ ON: END 


38 GOTO 10 
プロ グラ ム ⑧ 


10 PRINT ТІМЕФ 
20 IF ТІМЕФ-"15:20:008" THEN GOTO 48 


за БОТО 18 

40 Туы ON 

5@ ЕКО 

プロ グラ ム ⑧ で は , GOTO 文 の 使い 方 に 注意 し て くだ さい 。 上 F 文 の 条件 が 成り 立つ まで 30 行 か ら 
10 行 へ 戻る バー プ の 中 を プロ グラ ム は ぐる で る 回 りつ づけ ます 。 条 件 が 成り 立つ と , 40 行 へ 飛 


ん で テレ ビ の 電源 を ON に し て 50 行 で 終わ り ま す 。 


r= め ゐ だ おけ めも = ニー ニー ニーーーーーーーーーーーーーーーーー ニ ーー ニー ニー ニー ニー ニー ニーー ニ ーーー ニー ニー ニニ ーー ニー ニー ニー っ) 


) カー ソル 移動 の 魔法 の 杖 | 
| EDIT 文 な ど を 使 つ て 行 の 中 身 を 修正 する 場合 , Z Q6üb*O B TOVILI 
れ ば な り ま せん が , この よう な と き に [CTRL][ 四 キー を 押す と , カー ソル は 1 文字 げ ずつ で は ; 
) G<, 1 つの 命令 文 ずつ 進ん で いき ます 。 進み 万 は , まず 行 番号 , 1 番目 の 命令 文 の 先頭 , 次 ) 
! に その 命令 文 の パラ メー タ と いう 順に 進み ます 。 た だ し , スペ ー ス を 省略 し て 詰め て 書か れ て ! 
! いる 場合 , この よう に な る と は 限り ませ ん 。 行き すぎ だ り , 前 に 戻し た いと き は , [CTRL] +B] | 
キー を 押す と , この 反対 に 動き ます 。 | 
) 5312, すでに ある 行 と 行 の 間 に 新しい 行 を 追加 し た い 場 合 , 普通 は カー ソル を 画面 の 下 ) 
|! の 万 に 秘 動 させ て いき , そこ で 入力 し ます 。 ご の 万 法 で は , うつ か りす る と 行 番号 を 同じ に し |! 
! て し まっ つて, 前 の も の を 消し て し まつ だ りす る こと も あり ます 。 この よう な と き , [CTRL] +[0] ! 
キー, まだ は [CTRL]+ [NN キー を 使う と , 表示 され て いる 行 と 行 の 間 を あけ る こと が で きま す 。 
' CTRL 十 O は , カー ソル の ある 行か ら 下 を 下げ る 働き を , CTRL+N は , この 逆 に カー ソル の ! 
) ある 行か ら 上 を 上 げ る 働き を し ます 。 | 
| 1 
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プロ グラ ム ④⑳④ の 20 行 の 中 に は , TVPW ON と END と い 5 2 つの 命令 が 並ん で いま す 。 ENDI}, X 
字 と どおり プロ グラ ム の 終わ り を 示す 命令 で す 。 BASIC で は 「: у (апи) を 使う こと に よっ て , 
いく つか の 命令 を 1 行 に まとめ て 一 緒 に 書く て こと が で きる の で す 。 こ の よう な 書き 方 を , マル 
チ ス テー トメ ント と 呼び ます 。 メ モリ を 節約 し だ た いと き な ど , と て も 役立つ 書き 方 で す 。 ま た だ 
この 場合 の よう に IF 文 の 中 で いく つか の 命令 を いっ ぺん に 実行 きせ た いと き 必 ず 使 われ る 書き 方 
1% 

この 「: 」( コ ロン ) ФГ, у (жие), Г; 」( セ ミコ ロン ) を セパ レー タ と いい ます 。 +77 
レー タ と は 「 分 ける も の 」 と いう 意味 で す 。 


пу 


— s> — па: татей 


3-3 時 刻 を 決め る 、 チ ャ ヤン ネル を 決め る 


念 文字 変数 で 時 刻 を 決め る 

前 の プロ グラ ム で は , テレ ビ の スイ ッ チ を ON に し た い 時 刻 を も , プロ グラ ム の 中 に 書き 込み ま 
し た 。 何 回 も 繰り 返し て テレ ビ の スイ ッ チ を ON に する た め に は , いく 〈 度 も プロ グラ ム を 書き 直 
る ね ば な り ま せん か ら , これ で は 実用 的 な デ ロ グ ラム と は いえ ませ ん 。 こ こ で は プロ グラ ム を 
実行 する た びに 希望 の 時 刻 を 自由 に 決め られ る よう に し まし ょ う 。 

前 に テレ ビ の チャ ン ネ ル を 選択 する プロ グラ ム で INPUT 文 を 使い ま し た 。 INPUT 文 は ゲロ グラ 
ム を 実行 する と , クウ ェ ス チョ ンマ ー ク を 表示 し て デー タ の 入力 を うな が す ス テー トメ ント で 
す 。 こ れ を 使っ て テレ ビ を 見 た い 時 刻 を 入力 する の が 良き ふそう で す 。 

INPUT 文 の 中 に 希望 する 時 刻 を 入れ て や れ ば 良い で し ょ う 。 こ こ で は テレ ビ の スイ ッ チ を ON 
に し た いと 希望 する 時 刻 を TC$ と いう 変数 に 入れ る こと に し ます 。 


プロ グラ ム は 次 の よう に な り ま す 。 


18 INPUT Тс% 
20 IF ТІМЕжФ-Тс% THEN ТОРИ ОМ:ЕМО 


за вото га 
この プロ グラ ム を RUN き せる と 10 行 の INPUT 文 に よっ て , 最初 に クウ ェ ス チョ ンマ ー ク が 表示 
され ます 。 時 刻 は 内 蔵 時 計 の 表示 する 時 刻 と 同じ 書き 方 で キー イン し ます 。 た と えば 「15 : 50: 
00」 ほ と いう よう に キー イン し ます 。 こ れ は 数 字 の 集まり で す が , 電話 番号 な ど と 同じ 〈 数 字 の 
文字 列 で す 。 で すか ら 変 数 も TC$ と いう よう に ,「$」 マ ー ク を つけ て 文字 列 変数 と し て いま す 。 
リタ ー ン キー を 押す と ,TC$ と いう 変数 の 中 に この 文字 列 が 入り ます 。 こ の プロ グラ ム で は TIME$ と 
TC$ の 比較 を 繰り 返し 続け て , 2 つが 一 致す る と テレ ビ 放 送 に 画面 を 切り か えて いま す 。 
非常 に 簡単 な ゲロ グラ ム で す 。 今度 は テレ ビ の チャ ン ネ ル も 自由 に 決め られ る よう に し まし 
ょ う 。 前 に CHANNEL 文 を 使っ た プロ グラ ム を 作り まし た か ら , それ を 利用 し ます 。 CHANNEL 文 
В, テレ ビ の チャ ン ネ ル を CH と いう 変数 に 入れ て お き , CHANNEL 命 令 を 使っ て 「CH チ ャ ン ネ ル 
に 切り か えろ 」 と いう 指示 を プロ グラ ム 中 で 行 な を ば よい の で す 。 変数 が 2 つ に 増え ます か ら , 
プロ ンプ ト 文 を 使っ て ,、 プ ログ ラム を わか りや すい も の に し て お きま し ょ う 。 
カナ を 入力 する と き に は スペ ー ス バー の 横 に ある [ ヵ ナ | キー を 押し ます 。 も うぅ 一 度 [カナ | キー を 
押す と , アル ファ ベッ ト や 記号 が 使 を る を よう に な り ま す 。 
за INPUT "リナ フシ ドニ シマ スカ " Тсъ 
15 INPUT "チャ ン ネ ルル ロリ ミロ 


20 IF ТІМЕФ-7с% THEN ТУРА ONICHANNEL CHEND 
за GOTO 20 


入力 し 終わ っ た ら 6, さっ そく プロ グラ ム を 実行 し て みて くだ さい 。 
@ コ ー ド ナン バー1550106 一 配列 


希望 する 時 刻 に テレ ビ を ON に し , 希望 する チャ ン ネ ル に 合わ せる こと が で きる よう に な り ま 
し た 。 今 度 は 希望 する 時 刻 に テレ ビ を OFF に し まし ょ う 。 


па 
ІЛ 


80118101 ー ョ ュー 


ー ga 一 88110110 


š+, テレ ビ の スイ ッ チ を ON に し だい 時 刻 を , 前 と 同じ よう に TC$ と いう 変数 に 入れ て お き 
ます 。 し か し , スイ ッ チ を OFF に する 時 刻 は , 別 の 変数 に 入れ な けれ ば な り ま せん 。 INPUT 文 と 
IF 文 を 使っ て 新しく プロ グラ ム を 組み ます 。 


ій INPUT "SW ON TIME «не: ММ:553) "š TVONS 

20 INPUT "CHANNEL 1-12) "СН 

за INPUT "SW OFF TIME (HH:MM:SS) %;ТУОЕҒФ 

40 IF ТІМЕФ-ТУОМФ THEN ТУРЫ ON:CHANNEL CH:GOTO 66 
58 GOTO 40 

68 IF TIME$=TVOFF$ THEN TVPW ОҒЕ: ЕМО 

70 GOTO 680 


INPUT 文 を 使っ て テレ ビ の ON/OFF, チャ ン ネ ル の 指定 の 3 つの デー タ を 入力 し , 後 は IF 文 を 
使っ て , それ ぞ れ 指定 され た 時 刻 と 内 蔵 時 計 の 示す 時 刻 と の 比較 を する 基本 どおり の プロ グラ 
ム で す 。 それぞれ の IF 文 で 条件 が 成り 立っ た と とき, 成り立た な か っ た と き の 処 理 に 注目 し て くだ 
さい 。 

40 行 の IF 文 で , 変数 TVON$ の 値 , つま り テ レビ を ON に し た い 時 刻 と 内 蔵 時 計 の 時 刻 と が 一 
致す る k, TVPW ON の 命令 を 実行 し , さら に CHANNEL CH を 実行 し , 60 行 へ 進め と いう 命令 を 
実行 し ます 。 時 刻 が 一 致し な けれ ば , 50 行 の GOTO 文 で プロ グラ ム の 流れ は , 60 行 で の 処理 [и] 
じ で TF 文 へ 戻り ます 。 

これ で , スイ ッ チ の ON/OFF と チャ ン ネ ル の 切り か を え が で きる よう に な り ま し た 。 プ ロン プ 
ト 文 の な か げ で 操作 も ずい ぶん と わか りや すく 《 な っ て いる こと が , 実際 に プロ グラ ム を 走ら せ 
て みる と 確か め ら れ ま す 。 し か し , スイ ッ チ の ON/OFF も チャ ン ネ ル の 切り か えも 1 回 だ けし 
か 行 な を ませ ん 。 こ れ で は , わざ わざ コン ピュ ー タ を 使う 必要 は あり ませ ん ね 。24 時 間 , 予約 
し だ とおり に コン ピュ ー タ で テレ ビ を コン トロ ー ル し だ た いも の で す 。 その だ た め に は どの よう な 
プロ グラ ム を 作れ ば よい の で し ょ うか 。 

「 つ ぎ つ ぎ に 変数 を 作っ て , その 変数 の 1 つ 1 つ を IF 文 で チェ ッ ク し て いけ ば よき る そう だ 」 と 
いう こと は わか り ま す 。 し か し , こう 考え た 場合 、 その いく つも の 変数 名 を どの よう に 用 意 す 
る か が 問題 に な り ま す 。 

変数 名 の 問題 を 解決 する 前 に ,. プロ グラ ム の 中 で コン トロ ー ル し な けれ ば な ら な い の は 何 な 
の か を も う 一 度 確 か め て お きま し ょ 2 う 。 

① 時 刻 
テレビ の ON, まだ は OFF 
③ テ レビ の チャ ン ネ ル 

この 3 つの 要素 を ばらばら に で は な 〈 く , うま く 《1 つ に まとめ る こと が で きる と ブログ ラム 作 

り は 楽に な が り そ う で す 。 


@ コ ー ド ナン バー っ て どん な も の 


近ごろ で は いろ いろ な と ころ で コー ドナ ン バ ー が 使わ れ て いま す 。 コ ー ド ナン バー と いう の 
は いく つか の 要素 を 数 字 で 表現 し た も の で す 。 み な さる ん の 中 に も 銀行 の キャ ッシュ カー ド を 持 
っ て いる 人 が いる こと で し ょ う 。 キ ャ ッシュ カー ド に は いく つか の 数 字 が 刻ま れ て 並ん で いま 
す 。 こ れ も コ ー ド ナン バー の 一 種 で す 。 図 書館 で は 1 冊 ず つ 全 部 の 本 に , 異な る コー ドナ ンズ バ 


で z 
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ー を つけ て 整理 分 類 ち し て いま す 。 歴史 , 社会 , 自然 科学 , 芸術 な どの 区 別 を し た 後 。 さら に 
時 代 や 国 や 分 野 に よっ て 細か な 区 別れ する の で す が , その すべ て が 0 か ら 9 ま で の 数 字 の 組み 
合わ せ で 表わさ る れ て いま す 。 た と えば ,「2151」 と いう ナン バー は それ ぞ れ の 数 字 が 「 2 (歴史 ), 
1 (HA), 5 (中 部 地方 ), 1 (山梨 県 )」 と いう 意味 を 持っ て いて , これ は 2151 冊 目 の 本 と い 
う 意味 で は あり ませ ん 。 コ ユ コード ナン バー を うま く 利 用 すれ ば , МУН, 何 10 万 冊 の 本 で も し っ 
か り と 分 類 し , きれ い に 整 理 す る こと が で きる の で す 。 

それ で は , コー ドナ ン バ ー を 使っ て この プロ グラ ム に 必要 な 3 つの 要素 を 1 つ に まとめ て み 
まし ょ う 。 

まず 最初 に , 4 桁 の 数 字 で 時 分 を 表わす こと に し まし ょ う 。 こ の と き , 時 や 分 が 1 桁 の 場合 , 
その 前 に 0 を つけ る よう に し ます 。 文 字 列 の 文字 数 を 表わす 関数 と し て LEN が あり ます 。 こ れ を 
利用 し て 桁 数 を 調べ , も し 1 桁 な ら ば 前 に “0” を 加え る よう に し ます 。 


са INPUT "тов", 113 
20 ТЕ LEN(JI$)=1 THEN JI$="0"+JIS$ 


スイ ッ チ の ON/OFF は , ON を 1, OFF を 0 で 表わす こと に し ます 。 チ ャ ン ネ ル は 1 か ら 12 
まで あり ます の で 2 桁 分 用 意 し , 1 桁 の 場合 は 同様 に 前 に 0 を つけ る こと に し ます 。 

こう し て , た と えば 「15 時 30 分 に テレ ビ を ON に し て 6 チャ ン ネ ル を 見 る 」 と いう 場合 の コー 
КІ, 


1530 1 06 
— 6 + x > À L 
ON 
15:30 
と な り ま す 。30 分 テレ ビ を 見 て 16 時 に テレ ビ を OFE に する 時 の ユー ド は , 
1600 0 00 
チャ ン ネ ル 
OFF 
16:00 
で す 。 テ レビ を OFF に する と き の , チャ ン ネ ル の コー ド は 何で も よい わけ で すか ら , 00 と し て 
Баз 


これ で , 1 つの 文字 列 の 中 に テレ ビ を コン トロ ー ル する だ た め の 3 つ の 要素 も を まとめ る こと が 
Тазы”; 


@ 文 字 を つない で コー ドナ ン バ ベ バー 


10 INPUT "SW ON TIME (HniMMISS) "š TVONS 

20 INPUT "CHANNEL (1-12) "СК 

30 INPUT "Si OFF TIME (ロロ ENMMI SS) "; ТУОРЕФ 

40 IF ТІМЕФ-7У0М% THEN ТУРЫ ОМ:СНАММЕ CH:GOTO 6й 
58 GOTO 40 

60 IF TIMES=TVOFFS THEN ТУРА ОРЕ: ЕМО 

70 GOTO ва 


これ が これ まで に 作っ た プロ グラ ム の 全体 で す 。 こ こ か ら 必 要 な 要素 を ね き 出 し て コー ドナ 
ン バ ー 化 し な けれ ば な り ま せん 。 

文字 列 同 士 を 「 十 」 記 号 で 結合 する こと が で きる , と いう こと を みな る ん は 覚え て いま すか 。 
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時 刻 士 1 (ON) プ 0 (OFF) キ チャン ネル 
と すれ ば , コー ドナ ン バ ー を 作る こと が で きそう で す 。 こ こ で 注意 し て お か な けれ ば な ら な い 
こと が 2 つ あ り ま す 。 1 つ は , チャ ン ネ ル の 指定 を 数 字 の 文字 列 と し て 処理 する と いう こと で -~ 
+, 文字 列 同士 の 結合 で すか ら チ ャ ン ネ ル の 数 字 を 数 値 変数 に で は な く , 文字 列 変数 に 入れ る 
よう に し ます 。 も う 1 つ は テレ ビ の ON/OFF を 数 字 の 1 と 0 で 指定 する と いう こと で す が , 2 
れ も 数 字 の 文字 列 と し て 扱わ な けれ ば な り ま せん 。 ま た , 時 刻 の 指定 も 6「 時 」+ す 「 分 」 と いう よ 
うに し て お いた 方 が , 後 の 処理 が 楽に な が り ま す 。 間 に 「:」 が 入る と コー ド と し て も 不 自 然 で 
+ 

ュー ドナ ン バ ー 化 の 問題 は ュー ド の 分 解 と あわ せ て 考え た 方 が よく わか る と 思い ます の で , 
まず ここ で は コー ド 化 の 原則 だ け を 覚え て お きま し ょ う 。 


念 配 列 変数 で た くさ ん の 箱 


ここ で 変数 の 問題 に 戻り まし ょ うう 。 こ の 文字 列 を 収め て お く た め の 変数 を 用 意 し な けれ ば な 
り ま せん 。 

テレ ビ の ON/OFF を し た り , チャ ン ネ ル を 切り か える と な る と いく つも の 変数 を 用 意 し な け 
れ ば な り ま せん 。 そこ て で 配列 変数 ほし いう も の を 使う こと に し ます 。 

前 に 変数 し いう の は , デー タ を 入れ て むく 〈 箱 で ある と 説明 し まし た 。 今 まで に 使っ た 変数 は 
すべ て , 箱 が 1 つ だ け の も の で す 。 配 列 変 数 で は た くさ ん の 箱 を , まとめ て 1 つの 名 前 で 用 意 
し て し まう こと が で きま す 。 1 つの 名 前 で 用 意 さ れ た た くさ ん の 箱 の 1 個 1 個 に 番号 を ふっ た 
も の と 考え られ ます 。 

配列 変数 の 書き 方 の 例 を 1 つ あ げ ま す 。 

TC$( 4 ) 

TC$ と いう の が この 配列 変数 の 変数 名 で 
す 。「$」 が つい て いる こと で , これ が 文字 1 
の 人 て ある こも が わかり ま す 。 са ÛY 
まで 勉強 し て きた 変数 と 同じ く , 配列 変数 
に も 数 値 を 入れ る た め の も の 文字 列 を 入 o 
れる た め の も の が あり ます 。 こ こ で 扱う コ 
ー ド ナン バー は 文字 列 を つない だ も の で す N 
か ら , 変数 も 文字 列 変数 で な けれ ば な り ま 
せん 。 

АС, 変数 名 の 後ろ の に, 数 字 の 入っ た カ 
ッ コ が 書か れ て いま す 。 カッコ の 中 に 書か れ た 数 に 従っ て , 変数 の 箱 が 用 意 き れる の で す 。 

この カッ コ ユ の 中 に 書か れ た 数 を 添字 た いい ます 。 この 添字 の 数 だ け 箱 が 用 意 き れ ま す 。 た だ , 
ここ で 注意 し て ほし い の は 0 も 1 つの 箱 と し て 用 意 き れる と いう こと で す 。 た と えば この 例 で 
いえ ば , TC$ と いう 1 つの 変数 名 で TC$( 0 ) か ら 6TC$( 4 ) まで の 5 つの 釘 が 用 意 き れる こと に な 
り ま す 。 そして, この 5 個 の 箱 が それ ぞ れ に 別々 の デー タ を 収め て お く こ と が で きま す 。 

TC$(255) と すれ ば , 256 個 の 箱 が 用 意 き れる こと に な り ま す 。 実 際 に プロ グラ ム を 作る と き に 
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8, むやみ に た くさ ん の 箱 を 用 意 す れ ば それ で よい と いう わけ で は あり ませ ん 。 い 〈 つ の 箱 を 
用 意 す る か を , 最初 に 決め て お か な けれ ば な り ま せん 。 


@DIM 文 で 配列 宣言 


用 意 す る 箱 の 数 を 決め る に は , DIM 文 を 使い ます 。 DIM 文 の 書き 方 は , 次 の 例 の よう に な り ま 
т. 

DIM TC$( 4 ) 

DIM 文 が 配列 変数 で 用 意 する 箱 の 数 を 指定 し ます 。 で すか ら , 数 値 変 数 と DIM 文 と は いつ で も 
1 つの 組 に な っ て 使わ れ ま す 。 た だ し , 用 意 し な けれ ば な ら な い 箱 の 数 が 10 ま で の と き に は DIM 
文 を 使わ な く て も 配列 を 使う こと が で きま す 。 

この 配列 宣言 の 前 に OPTIONBASE 1 と 宣言 し ます と , 配列 の 添字 の 一 番 小さ い 値 (下限 ) を 1 
に する こと が で きま す 。 通常 添 字 の 下限 は 0 に な っ て いま す 。 配 列 を 宣言 する 前 に 一 度 だ け 宣 
言 で き , 再 宣言 する こと は で きま せん 。 

配列 変数 で 用 意 る れる 箱 の こと を 配列 要素 た いい ます 。 ま た , 箱 の 数 を 決め る こと を 配列 宣 
言 を する と いい ます 。DIM と は Dimension の 略 で 宣言 の 意味 な の で す 。 

DIM 文 は , その 配列 を 使う 前 に 一 度 だ け 使 用 し , 後 か ら 箱 の 数 を 変え た た りす る こと は で きま せ 
A | 

ST, この 例 で は TC$ と い う 変 数 名 で 配列 の 番号 0 か ら 4 ま で, 5 つの 箱 が 用 意 る れる こと に 
な り ま し た 。 箱 は 用 意 き る きれ まし た が , 中 身 は まだ 空っぽ で す 。 この 空っぽ の 配列 変数 の 箱 の 中 
に 順番 に デー タ を 入れ て いか な けれ ば な り ま せん 。 ど の よ ょ うな 方 法 が ある で し ょ うか 7? 


а? ай: :1йй1 -57- 


3-4 まわ り ま わっ て 、 ま た また まわ ね る 


1 日 に 30 回 の テレ ビ の ON/OFF を する として, 30 個 の コー ド を 入れ る 箱 を 用 意 し な けれ ば な 
り ま せん 。 配列 変数 の 箱 を 30 個 用 意 し まし ょ う 。 変数 名 を これ まで と どおり TC$ と する と , ЯН 
言 は この よう に な り ま す 。 
DIM TC$(30) 
配列 変数 の 中 に 順番 に デー タ を 入れ て いく 方 法 で す が , 便利 な 命令 が あり ます の で 紹介 し ま 
も よう 。 


18 ОІМ Тсъсз8) 
20 FOR I=1 TO 30 
за INPUT Тс%‹1› 
49 NEXT I 


この 小さき な プロ グラ ム て 配列 変数 TC$ の TC$( 1 ) か ら 6TC$(30) まで の 30 個 の 箱 に 順番 に デー タ 
を 入れ て いく こと が で きま す 。 便利 な 命令 ほし いう の は , ここ で 使っ て いる FOR て TO て NEXT と い 
う 命令 で す 。 

ここ で は , 1 の 値 を 1 か 630 まで 1 ずつ 順番 に 増やし な が ら 6, そ の つと 配列 変数 TC$ の 添字 に 
値 を も あて は め て いっ て , 30 個 の 箱 の 中 に 値 を 入れ て いき ます 。 

配列 変数 TC$ の 中 の デー タ を 読み 出す よう に , 次 の プロ グラ ム を つけ 加え て くだ さい 。 


50 FOR Ісі ТО 38 
る 9 PRINT Тс%152 
78 NEXT 1 

88 END 


プロ グラ ム を 実行 する と クウ ェ ス チョ 
ンマ ー ク が 30 個 表示 され ます か ら , 確か 
に TC$ と いう 変数 に 30 個 の デー タ が 収め ら 
れ て いる らし いこ と が わか り ま す 。50 行 
か ら 後 の アロ グラ ム が 実行 きれ る と, Z 
の デー タ が 入力 し た 順番 に 表示 され ます 。 
30 回 も 入力 する の で は 疲れ て し まい ま 
Тт»? それ で は 希望 する 数 の デー タ だ 


け を 入れ られ る よう に し まし ょ う 。 


10 ОІМ Тсъсза) 
15 INPUT E 

20 FOR I=1 TO E 
за INPUT Tc*%*(I) 
48 NEXT 1 

50 FOR 1=1 TQ Е 
óð PRINT ТсФ (1) 
70 NEXT 1 

за ЕМО 


8 一 ва! 11а:а 


ru 
P 
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まず 配列 変数 TC$ を 30 個 用 意 し ます 。 1 日 に テレ ビ の ON/OFF を する 回 数 は 最大 30 回 と な り ま 
To 

プロ グラ ム の どこ を どう 変え て いる の か 注意 し て みて お いて くだ きい 。 

TV24 時 間 予 約 プ ログ ラム の 考 ぇ 方 も この プロ グラ ム 例 と 同じ で す 。 時刻 ・ チ ャ ン ネ ル ・ON/ 


OFFO 3 つの 有 要素 を まとめ た コー ド を 配列 変数 の 中 に 入れ て お ぉ き , 再び 順番 に 読み 出せ ば よい 
の で す 。 


FOR て TO て NEXT の 命令 は 一 般 に , 

と いう 形 で 使い ます 。 こ の 例 で は , 「 変 数 (V) の 値 を ん か ら 6B ま で 順番 に C ず つ 増 や し な きい 」 
と いう 意味 に な り ま す 。C の 値 を 負 (マイ ナス ) に し て や れ ば , 順番 に 数 を 減ら し て いく こと 
も で きる の で す 。 た だ し , この 場合 は A の 値 の 方 が B の 値 よ り も 大 きく な けれ ば な ら な い の は 
も ちろ ん で す 。 ま た , А, В, C の 値 を 変数 で 指定 する こと も で きま す 。STEP を 省略 する と C 
の 値 は 自動 的 に 1 と な り ま す 。 

変数 V の 値 は , 最初 は A で す が , プロ グラ ム の 流れ が NEXT の 命令 まで た どり つく と FOR へ TO 
の と ころ まで 戻っ て C だ け 増 えま す 。 つ まり , FOR て TO か ら 6NEXT ま で が ルー プ に な っ て いる の 
で す 。 前 に 「 無 限 ル シル ー プ 」 と いう 言葉 が 出 て きま し た 。FOR 一 TO 一 NEXT の ルー プ は , 回 数 を 限 
られ て で る で る と 回 る ルー プ で す 。 

FOR て TOCNEXT 命 令 は これ か ら も よく 使い ます の で , どの よう な 働き を する か いろ いろ と 試 


し て お きま て しょう 。 
10 FOR I=32 TO 255 
20 PRINT CHR$(I); 
36 NEXT I 
これ は , X 1 で 使え る 文字 や 記号 を すべ て 画面 に 書き 出さ せる た め の プ ログ ラム で す 。 
20 行 に ある CHR$( 1 ) と いう の は 配列 変数 で は な く , 関数 と し いう も の で す 。 この 関数 に つい て 
は 《3-6) の と ころ で くわ し く 説 明 し ます 。 フ パパ ツ コ ン で は 文字 や 記号 の それ ぞ れ に 番号 が つけ 
られ て お り , いわ ば 文字 や 記号 の 背 番号 と し いえ ます 。 こ の 番号 を アス キー コー ド と いっ て , 0 
か ら 6255 ま で の 通し 番号 が 割り あて られ て いま す ( 0 から 631 ま で は , 文字 や 記号 で は な 〈 く 制御 コ 
ー ド と いう も の に 割り あて られ て いま す 。 巻末 ア スキ ー コ ユー ド 表 参照 )。 CHR$ は , 文字 の 背 番 号 
アス キー コー ド か ら 文 字 や 記号 を 読み 出す 関数 で す 。 
この プロ グラ ム で は , アス キー コー ド を 1 と いう 変数 に 入れ て お いて FOR へ て TONEXT 命 令 で 
32 か ら 255 ま で 変化 きせ な が ら , CHR$( 32) 2° 6, CHR$ (255) まで 順番 に 文字 や 記号 を 画面 に 表示 


させ ます 。 

5 б-й 

10 РЕТМТ"Ал7В?7“ 2 ヲタ シ サ トーリ 
268 ІМРЫТ"Ат "ЗА 


за INPUT"B=";B 

48 FOR І=а ТО B 

50 S=S+I 

68 NEXT : 

78 РВІМТА; "人 カラ B マ チノ 2" 77,6+ "16 
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この プロ グラ ム は , キー ボー ド か ら 入 力 し た A か ら B ま で の 数 の 合計 を 求め ' る プロ グラ ム で 
Fo FOR て TO て NEXT 命 令 の 使い 方 を みる と, A の 値 が B の 値 よ り も 小さ く な いと うま く 〈 く 計算 き 
れ な いと いう こと が わか り ま す 。 ル ー プ の 中 に は S=S 十 I と いう 代入 式 が あり ます が , ここ 
で は どの よう な 処理 を し て いる の で し ょ うぅ う 。 

変数 S の 値 は 最初 は 0 です が , FOR て TO て NEXT の ルー プ を 1 回 くぐり ぬけ た と き に は 。 10 
値 が あら た に 代入 る れ ま す 。 I の 値 は 最初 は A と な っ て いま す 。 1 の 値 が 代入 きれ て いる 変数 
S が 2 回 目 に ルー プ を くぐり ぬけ た ときには, さら に S の 値 に 次 の IDE (1 増え て いま す ) 
が 加え られ ます 。 こ の よう に し て , 1 の 値 が B に な る まで 足し 算 を 繰り 返し ます 。 

次 の プロ グラ ム は , 題し て 「 揺 れる ハー ト 」 で す 。 

10 FOR K=1 TO 19 

28 FOR X=0 TO 3é 
За PRINT TAB (Хх): "Ф" 
40 NEXT X 


50 FOR х-36 TO ü - 


68 PRINT TAS (х): "Фф" 
70 NEXT x = 
80 NEXT k — 


この 例 で は 変数 氏 の FOR て TO て NEXT の ルー プ ' の 中 に , も 5 1 つの 変数 X DFOR~TO~NEXTD 
ルー プ が 入っ て いま す 。 こ の よう な 形 を FOR て TO て NEXT の ネス ティ ング と いい ます 。 ネ ステ イィ 
ング で は 2 つの ルー プ が 交錯 し て は いけ ませ ん 。 内側 の ルー プ が , 必ず 外側 の ルー プ の 中 に 収 
まっ て いな いと エラ ー に な っ て し まい ます 。 

さる て, FOR て TOCNEXT 命 令 の ひと と お り の 働き が わか っ た と ころ で , 本 題 の テレ ビ 24 時 間 予 
約 プ ログ ラム に 戻っ て 話 を 進め まし ょ う 。 

この プロ グラ ム で は 配列 変数 の 中 に , テレ ビ を コン トロ ー ル する た め の コ ユー ド を 入れ る こと 
に し まし た 。 を その 方 法 も わか り ま し た し , コー ド を 読み 出す 方 法 も わか り ま し た 。 しかし, + 
レビ を コン トロ ー ル する に は , ユー ド を 読み 出す だ け で は だ めで す 。 読み 出し た コー ド を ① 時 , 
分 , チャンネル , ③ON/OFF の 3 つの 要素 に 戻し て や っ て , それ に 対応 する 命令 を 実行 きせ 
な けれ ば な り ま せん 。 次 々 と 難問 が わい て きま す が , 一 歩 一 歩 着実 に 進 ひ りこ と に し まし ょ う 。 


ァ - め め だ お が めも =-=ー ニ ーー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー 


行 番号 を 書く 手間 を は ぶ こ う 

キー ボー ドガ が ら プ ロブ ラム を 打ち 込ん で いく と き に , いち いち 人 行 番号 を つけ る の は 面倒 で す 。 
ご の よう な と き , AUTO 文 を 使う と 便利 で す 。 行 番号 の 作り 方 は , AUTO 最初 の 行 番号 , 
行 番号 を いく つ ざ ずつ 増やす が の 指定 を し ます 。 た と えば ぱ ば, 

AUTO 10O, 5 
と すれ ば , 最初 の 行 番号 が 100 に な り ま す 。 その 後 は リタ ー ン キー を 押す だ た びに, 行 番号 は 5 ず 
つ 増 えて いき ます 。 増やし て い ぐ 数 の 指定 を 省略 する と , 最初 の 行 番号 が 10, 増やし て い ぐ 分 
は 10 と な り ま す 。 

すでに プロ グラム が 入力 され て いる と き に AUTO 文 を 実行 する と , 入力 済み の 行 が 表示 され 
с, その 行 の 先頭 に カー ソル が ガ 表 われ ます が ガ ら , 何 行 も 続け て 修正 する と き は 便利 に 使う こと 
が で きま す 。[SHIFT| 十 [BREAK| を 押す と , AUTO 文 は 解除 これ ます 。 


Se aR EE a ae a a a a a am am a a a a a a aR a am a a a a aa a ae aa a aa SNA MRA 


| E REE E EER EEE EERE 


— 49 — 3808111188 


ru 
mM 


23-5 コー ド の 分 解 調査 


ここ で は , この 一 連 の コー ド を 作っ た と き に 元 の 文字 列 に 分 解す る 方 法 を 考え ます 。 

まず コー ドナ ン バ ー の 構造 を も う 一 度 確認 し て きま し ょ う ( 図 3-1)。 

この コー ド か ら テ レビ を コン トロ ー ル 
する 命令 の それ ぞ れ を 調べ る た め に は , 
文字 列 の 一 部 分 を 取り 出す 作業 が 必要 で п аја ан 
す 。 た と え ぇ ば, 時刻 の うち 時 の 単位 を 知 Во ûs {RSA YEON Жалға 
る に は コー ド の 左 か ら 6 2 文字 を 取り 出る 0 な ら л ОРЕ 
な けれ ば な り ま せん 。 チャンネル は 右側 
の 2 文字 に な り ま す 。BASIC に は この よう な 処理 や を する た め に 文字 列 処理 関数 (文字 関数 ) と 
いう も の が 用 意 き る きれ て いま す 。 例 を あげ る と , A= “コンニチハ” と いう 文字 列 の 左 か ら 64 文 
字 を 取り 出す に は , 

B$=LEFT$(A$, 4) 
と し て や る と, B$ に A$ の 左側 4 文字 つま り “コン ニチ "が 入り ます 。 


(83-1) 3— ET C $ (1 ) の 構造 


Аве リコ ラッ ニチ ロロ" 

ок 

в5ъ-| EFT (АФ, 4) 
ок 

PRINT БФ 

コン みこ 

Оқ 

カッ コ の 中 の カン マ の 後ろ で 取り 出す 文字 数 を 指定 し て いま す 。 

右側 の 何 文字 か を 取り 出す に は , RIGHT$(A$, n) と すれ ば よい だ ろう と 想像 が つき ます 。 試 し 
て み ま し ょ う 。 

内 = リコ ン ニ チロリ 

Ок 

CsesRIGHRH ТТ (AS, 32 
ак 

PRINT СЪ 

ж 

Ок. 

も L, 指定 する 文字 数 n が , 元 の 文字 列 A$ の 文字 数 より 多い 場合 , LEFT$, RIGHT$ と も 元 の 
文字 列 全部 に な り ま す 。 

も う 一 度 テ レビ コン トロ ー ル の ユー ド を 見 て くだ さい 。 スイ ッ チ の ON/OFF や 分 の 単位 は , 
жа» С 途中 の 何 文 字 か を 取り 出 き な けれ ば な り ま せん 。 こ の よう な 場合 に は 。 MIDS 
を 使い ます 。 た と えば , A$ の 左 か ら n 文 字 目 か ら の 下 文 字 分 を 取り 出す た め に は 

B$=MID$(A$.n,m) 

と し ます 。 


کد ی — Büiiiipi‏ 30 


АФ= "コン ニチ 
Пк 
2%=МІОФ (АФ, 3,29 


m を 省略 する と , n 文 字 目 か ら 右 側 の すべ て の 文字 列 を 取り 出し ます 。 こ れ ら の 文字 関数 を 
使っ て コー ド を 時 2, スイ ッ チ の 入 切 , チャ ン ネ ル の それ ぞ れ の 要素 に 分 解 し 取り 出す こと 
が で きま す 。 

818 1185, ЕЕТЪ(ТсЪ (I), 2? 
820 FU$=MIDS (ТсФ (I), 3,2) 
838 Зивзм1 905 (Тс5 (1), 5, 1) 
840 снамъ-втентъ (Тсъ (І), 2) 

これ で , 4 つの 変数 に コー ド を 分 解す る こと が で きま し だ た 。 こ こま で くれ ば し め だ た も の で す 。 
後 は 4 つの 変数 を 使っ て 実際 に テレ ビ を も コ ント ロー ル す る 部 分 を 考え れ ば よい の で すか ら 。 

と ころ で , テレ ビ を コン トロ ー ル する の に 必要 な 要素 は 時 刻 ・ チ ャ ン ネ ル ・ON/OFF の 3 2 
で し た 。 ここ で わざ わざ 4 つの 変数 に コー ド を 分 解 し て いる の は な ぜ で し ょ 5„ 実は 時 刻 を 時 
と 分 と の 別々 の 変数 に 分 けた 方 が . プロ グラ ム の 処理 も 操作 も 簡単 に な る か ら な の で す 。 2 つ 
に 分 け な い と する と プロ グラ ム が どの よう に 変わ っ て くる か は , み な さる ん で 考え て み ま し ょ う 。 

変数 か ら テ レビ を コン トロ ー ル する 方 法 は , この プロ グラ ム を 作り は じ め る と ころ で みて お ぉ 
きま し た 。 しかし, あの と き に は た っ た 1 つの 変数 を 比較 する だ け で し た が , 今度 は 4 つの 変 
数 の 比較 を し な けれ ば な り ま せん 。 

TIME$ の 時 の 単位 を 表わす 部 分 と ,J$ と いう 変数 と を IF 文 で 比較 し ます 。 こ れ ら 6 2 つの 値 が 同 
じ に な っ て いた ら 6 次 は ,FU$ と 分 の 単位 を 比較 する と いう 手順 に な り ま す 。 こ れ を 逆 に 考え て み 
る と , JI$ ETIME$ の 値 が 異な っ て いれ ば , それ か ら 後 の 分 の 比較 や スイ ッ チ の ON/OFF, チャ 
ン ネ ル の 切り か えと いっ た 判断 は 心 要 な いこ と が わか り ま す 。 ま だ ただ, 時 が 一 致し て も 分 の 単位 
で 違っ て いれ ば や は り を その 後 の 判 断 は 必要 な く 《 く なり ます 。 こ の よう な 場合 , 不要 な 判断 の 部 分 
は 飛ば し て し まっ て 差し つか えん あり ませ ん か ら , 次 の コー ド を 調べ る よう に し ます 。 

TIME$ か ら 6 時 , 分 の 部 分 を 取り 出す に は LEFT$, MID$ を 使い ます が , TIME$ で は 「15 : 30」 の 
よう に 時 , 分 の 間 に 「: (any) が あり ます か ら 注 意 し て くだ きい 。 

次 に スイ ッ チ の ON/OFF で す が , ON を 1, OFF を 0 と 決め て あり まし た 。 0 で な い 場 合 は 
必ず 1 に な っ て いる と いう わけ で す 。 こ の よう な 場合 , IF 文 と 組み 合わ せ て , ELSE を 使う と 便 
利 で す 。 

878 IF Зивя "8" THEN ТУЭДОЕС:б5оТО Яйй ELSE TMPAION 

IF て THEN て ELSE で は , 条件 が 成り 立っ た と き の THEN の 後 の 処 理 ほ と, 成り 立た な か っ だ た と き に 
行なう ELSE の 後 の 処 理 ほ し いう , 2 つの 処理 を 一 度 に 指定 する こと が で きま す 。 こ こ で は , も し 
(IF)SW$ が 0 な ら (THEN) スイ ッ チ を 切れ , と 命令 し て いま す 。 SW$ が 1 な ら ELSE の 後 の 命令 
に 従っ て スイ ッ チ を 入れ , それ が すむ と 次 の 行 の 仕事 に 移り ます 。 

スイ ッ チ を 入れ だら, 次 の 仕事 は チャ ン ネ ル の 切り か ぇ で す 。 CHANNEL 文 を 使う こと は いう 
まで も あり ませ ん 。 チ ャ ン ネ ル は CHAN$ と いう 変数 に 入っ て いま す 。 と ころ が , 試し て みる と 


42- 09111119 ЗЕ 


3 テレ ビ 24 時 間 予 約 プ ログ ラム 


わか る よう に , CHANNEL と いう 命令 の 後に 「$」 マ ー ク の つい た 文字 変数 を 置く て と エラ ー に な 


っ て し ま いま す 。 
CHANS="4" 
Ок 


CHANNEL CHANS 
Type mismactch 
ок 
文字 列 変 数 CHAN$ の 中 の 数 字 文 字 列 を , な ん と か し て 数 値 に し て や ら な けれ ば な り ま せん 。 


これ は , VAL と いう 関数 を 使い ます 。 こ れ は 文字 列 を 数 値 に 変換 する 関数 で す 。 


888 CHAN=VAL (CHANS) 
898 CHANNEL CHAN 


る あこ れ で どう や ら コ ー ド か ら テ レビ の コン トロ ー ル を 行なう 部 分 が で びき あがっ た よう で す 。 
プロ グラ ム が どの よう に 流れ て いく か を し っ か り 確 か め て くだ さい 。 


8300 FOR Ісі TO ЕЕ 

810 JI$é$=LEFT#$(Tc%(I),2) コー ド か ら 「 時 」 の 部 分 を 取り 出す 。 

829 FUS=MID$(TC (1), 3, 2) = / 「 分 」 / 

830 SIi$=MID#$(Tc$(I),5, 1›+— スイ ッ チ ON,OFF を 指示 する 。0 と 1 を 取り 出す 。 

В4й CHANS=RIGHTS(TCS (1), ご ーー チャ ン ネ ル の 数 字 を 取り 出す 。 

850 ТЕ 71% иба кс. TIMES$ の 「 時 」 の 単位 と コー ド の 「 時 」 が 違っ て いれ ば 


GOTO 798 後 の 仕 事 は 必要 な い の て 次 の コー ド に いく 。 

860 IF ҒІ8>МІПФСТІМЕФ, 4,2) 

GOTO FAA -- 分 に つい て も 同様 

870 IF SW$="0" THEN TUPNOFF | 0 な ら ス イッ チ を OFF に する 。 チ ャ ン ネ ル は どう で も よ 
IROTO тай шалының い の て 次 の コー ド へ 、 1 な ら ス イッ チ を ON に する 。 


880 CHAN=VAL (CHANS?) 
890 CHANNEL CHAN 
2008 NEXT І 


文字 列 に な っ て いる チャ ン ネ ル の 数 字 を 数 値 に 変換 する 。 
チャ ン ネ ル を 切り 換え る 。 


ЗЕ 88111111 — 525 — 


зе ラリ ジラ ム の パーン 5 


@ デ ー タ の チェ ッ ク 


ここ まで , 一 度 に いろ いろ な こと が 出 て き て , だ いぶ むず か し か っ だ か も し れ ま せん 。 ここ 
で ちょ っ と , 「 テ レビ 24 時 間 予 約 プ ログ ラム 」 の 整理 を し て み ま し ょ 5. 


デー タ の 入力 部 分 テレ ビ の コン トロ ー ル 部 分 
OoINPUT 文 で 入力 Oo 配 列 変数 か ら FOR 一 NEXT 文 で コ 
“ЕРЕЖЕ ОВ, 分 , スウィッチ チャ ン ネ ー ド を 読み 出す 
O 画面 を きれ い に す る ル を まとめ て コー ド 化 O コ ー ド を 分 解 し て 時 分 。 ス イッ ナチ チャ 
O コー ド 化 し た も の を FOR 一 NEXT ン ネ ル に 対応 する 変数 に 分 ける 
文 て 配列 変数 に 入れ る O それ ら の 変数 を IF 文 で 判断 し テ 
レビ の コン トロ ー ル を 実行 する 


こう し て みる と ,「 テ レビ 24 時 間 プ ログ ラム 」 の 骨組 が だ いた いわ か っ て きま し た 。 ここ で は , 
この 骨組 に 肉 づ け を し て いっ て , 実際 に プロ グラ ム を 実行 きせ る 用 意 も し まし ょ 5 

まず , 入力 され て くる デー タ を チェ ッ ク で きる よう に , プロ グラ ム に 手 を 加え て お きま す 。 
テレ ビ を コン トロ ー ル する た め の デ ー タ は 限ら れ た 値 で . た と えば , 入力 され る チャ ン ネ ル 
は 1 か ら 12 の 範囲 に ある は ず で す 。 も し, それ 以外 の 誤っ た デー タ が を の まま 受け つけ られ て 
し まう と , それ ま て 順調 に 働い て いた プロ グラ ム も , テレ ビ を コン トロ ー ル する 段階 に な っ て 
エラ ー を 出す こと に な っ て し まい ます 。 こ れ を 避け る た め に , デー タ を 入力 し た 時 点 で .。 それ 
が 誤っ た デー タ な ら ば も う 一 度 入力 し 直る せる よう に すれ ば いい わけ で す 。 

人 間 が 入力 や 操作 の 誤り を する こと は し ば し ば ある こと で す 。 誤っ た 入力 デー タ を 受け つけ 
な いよ うに プロ グラ ム の 方 で 工夫 もし て お く こ と は , を その後, プロ グラ ム を 実行 し て い 〈 際 の 
トラ ブル を 避け る 意味 で , 実は と て も 大 切な こと で す 。 


関数 は 加工 機械 


次 の 例 を 見 て くだ さい 。 

270 IF VAL (CHANS) 212 OR VAL «Сначъ»к: OR FRAC (VAL (CHAN) ) < уй 
THEN GOTO 260 

IF 文 を 使っ て , チャ ン ネ ル が 正しく 入力 され だ か を チェ ッ ク す る 部 分 で す 。VAL と いう 関数 は 
前 に 説明 し た よ うに, 数 字 文字 列 を 数 値 に 変換 する も の で す 。 FRAC も 関数 で , これ は その 後 の 
数 値 の 小数 部 分 も 与え ます 。 

関数 と いう の は 一 種 の 命令 で す が , コマ ンド や ステ ー ト メン ト な どの 命令 と は 異な り ま す 。 
関数 は その 後に , カッ コ で 囲ま れ た 数 値 や 式 , 文字 列 な ど を 別 の 数 値 や 文字 列 に 直す 働き を し 
ます 。 つ まり , 文字 列 や 数 値 , 式 の 変換 や 加工 ある せる 命令 た いう わけ で す 。 

みな さる ん も コピ ー の 機械 を 使っ た こと が ある と 思い ます が , 白い コピ ビー 用紙 に 文字 や 絵 が 映 
し 出る れ て きま す 。 今 日 で は る ま ざ ま な コピ ー 機 が あっ て 拡大 や 縮小 も 行なえ ます 。 関数 に よ 
る 変換 前 の 数 値 や 文字 列 が コピ ー の 原稿 で , 機械 の 働き で 拡大 きれ た り 縮 小さ れ た り の 加工 を 
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る れ て コピ ー 用 紙 に 映し 出さ れ た 絵 や 文字 が , 変換 後 の 数値 や 文字 別に あたり ます 。 

X 1 に は , 数 値 関数 , 文字 関数 特殊 関数 , 入力 文字 関数 タイ マー 関数 シス テム 関数 と 
いっ た も の が あら か じ め 用 意 る きれ て いま す 。 こ れ を 組み 込み 関数 し いい ます 。 こ の ほか に , п 
ンピュータ を 使う 人 が 自分 で 関数 を 定義 する こと が で きる よう に な っ て いま す 。 こ ちら は , ユ 
ー ザ ー 定 義 ほ いい ます 。 

話 を 元 に 戻し まし ょ う 。 こ こ で 「OR」 と いう 言葉 を 使っ て いま す 。 1 より 小さ いか 12 よ り 大 
きい か , また 小数 部 分 が 0 に な っ て いる か (つま り 整 数 か ), と いう 判断 を 合理 的 に 処理 し て い 
ます 。OR は 英語 で 「 ま た は 」, 「 あ る い は 」 と いう 意味 で すか ら , た と えば , 

IF A=1 OR B=1 THEN— 
と すれ ば , 変数 A の 値 が 1, また は 変数 B の 値 が 1 まだ は 両方 が 1 な ら ば , THEN 以 下 の 仕 事 を 
する , と いう こと に な り ま す 。OR で 結ば れ た 条件 を 論理 和 と いい ます 。OR の ほか に も , 

IF A=1 AND B=1 ТНЕМ-- 
と すれ ば , A も B も 共に 1 の と き に , と いう 意味 に な り , この AND で 結ば れ た 条件 式 を 論理 積 
と いい ます 。 こ の OR や AND は , コン ピュ ー タ の 基礎 と な る 考え 方 で すし , これ か ら も よく 使う 
手法 で す の で よく 覚え て むい て くだ さい 。 


人 @ 画 面 の 整理 


画面 に 表示 る され た だ チャンネル や 時 刻 な どの デー タ が , 正しい か どう か を 入力 し た 人 が 自分 で 
確認 で きる よう に し まし ょ う 。 正 し けれ ば [Y] キ ー を 押し , 正 し く な けれ ば [N] キ ー を 押す と いう 
よう に すれ ば , 入力 を 誤っ た と き に も 訂正 が で きま す 。 も ちろ ん [Y] キ ー が 押 き れ た と き に , は 
じ め て デー タ が 配列 変数 に 代入 し 直る れる よう に し な けれ ば この 工夫 も 意味 が な く な っ て し ま 
いま す 。 

押さ きれ た キー の 判断 は , INKEY$ と いう 特別 な 関数 を 使っ て 行ない ます 。INKEY$ は キー ボー ド 
の 見 張り 役 で す 。 INKEY$ は , 変数 の よう に キー ボー ド か ら 入 力 さ れ た 1 文字 を , 自分 の 箱 の 中 
に し と まっ る で し まい ます 。 
10 ТЕ INKEY$="Y" THEN PRINT "Yes" ELSE PRINT "No"EGOT ロ 10 
と する と , キー ボー ド か ら “Y” が 入力 され る まで 「No」 と 表示 し 続け ます 。 キ ー が 押さ れる 
t, つま り 文 字 や 記号 が 入力 され る t, それ を INKEY$ 関 数 の 中 に いっ た ん し まっ て か ら IF 文 で 
XE Y” と 比較 し ます 。 比較 し た 後 は , THEN, ELSE の 後 の 命令 を 実行 し ます 。GOTO 文 で 同 
じ 行 の 先頭 に 戻る と いう の が お な おもしろい で すね 。 

同じ プロ グラ ム を 次 の よう に 変え を て み ま す 。 
10 ТЕ ІМКЕҮФ (1) ="Ү" THEN PRINT "Yes" ELSE PRINT "No":GOTO 10 

こう する と , どれ か キー が 押さ れる まで , INKEY$ 関 数 は 何 も せ ず に 待っ て て くれ ます 。 こ こ で 
は , INKEY$( 1 ) を 使う こと に し まし ょ う 。 それ か ら , [Y] が 押さ きれ て 入力 され る 文字 が 大 文字 の 

「Y 」 で あっ て も 小文字 の 「y 」 で あっ て も 受け つけ て くれ る よう に 工夫 し ます 。 ず いぶ ん と 
親切 で 使い や すい プロ グラ ム が で きそう で す 。 

デー タ の 入力 を 終え を た いと き に は , 時 刻 入 力 の と き に [E| キ ー を 押す よう に し て お きま す 。 こ 
うし て お か な いと , 再度 30 回 分 の ON/OFF の デー タ を 入力 し な けれ ば な り ま せん 。 
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⑧ 何 度 で も 呼び 出し OK の サブ ルー チン 


これ まで テレ ビ を コン トロ ー ル する 部 分 , コー ド の 分 解 , 入力 する 部 分 な ど を ば ら ば ら に し 
て みて きま し た 。 それ ぞ れ の 部 分 で , 必要 な ステ ー ト メン ト ゃ や 関数 を 確か め て きま し た か ら 。, 
それ ら 6 小さ な 部 分 の 働き は わか り ま し た 。 み な る さん も , これ ら の 小さ な 部 品 を まとめ て 1 つの 
プロ グラ ム 化 を し た いと 思っ て いる わけ で す が , ここ で 「 サ ブル チー ン 」 と いう 考え 方 が 必要 
に な り ま す 。 

「 サ ブ プルー チン 」 と は , ブログ ラム 中 で 何 度 も 同じ 処理 あす る 部 分 を ひと まとめ に し て , 必要 
に 応じ て いつ で も 何 度 で も 呼び 出し て 使 を 4 を よう に し た プロ グラ ム の 一 部 を る し ます 。 つ まり , 
これ まで 組み 立て て きた ブログ ラム の 部 分 は すべ て 「 サ ブル ー チ ン 」 だ っ た わけ で す 。 

サブルーチン に 対し て プロ グラ ム の 主幹 に な る 部 分 も 「 メ イン ルー チン 」 と 呼び ます 。 

サブ ルー チン を 利用 する ときには , GOSUB と いう 命令 を 使い ます 。GOSUB の 後に は サブ ルー 
チン の は じ ま り の 行 番号 を 書き ます 。 こ れ は GOT0 文 で も 同じ で す 。 サ ブル ー チ ン の 終わ り に は , 
GOSUB で 呼び 出さ れ た 部 分 に 戻る た め に , RETURN と いう 命令 を 書い て お きま す 。 わ か りや すい 
よう に 表わし て みる と, イラ スト の よう に な り ま す 。GOSUB と GOTO と の 違い は , GOSUB の 場合 , 
いつ で も RETURN と 組み 合わ る れ て 使わ れる の で プ ブログ ラム の 流れ が いっ き に 飛ん で も 必ず 元 の 
場所 まで 戻っ て くる と いう 点 に あり ます 。GOSUB の 後に は 行 番号 を 書い て プロ グラ ム の 飛び 先 
を 指示 し ます が , 行 番号 の か わり に サブ ルー チン の 名 前 を 使う と さら に わか りや すく 《 な り ま す 。 
X 1 で は 「LABEL」( ラ ベル ) を 使っ て サ プ ブルー 
チン に 名 前 を つけ る こと が で きま す 。 LABEL t 
いう の は 名 札 の こと で すか ら , 文字 どおり ラベ 
ル を 貼っ て サブ ルー チン を 整理 し て おく わけ で 
す 。LABEL の 使い 方 は , 
LABEL “>< L£” 
と し ます 。 

LABEL は , GOSUB 文 だ け で は な く GOTO 文 に 
も 使え ます 。 

ъс, これ で プロ グラ ム の 構成 が 見 えて きま 
し た 。 指定 し た 時 刻 や チャ ン ネ ル な どの デー タ 
の 入力 部 分 で の 仕事 が 終わ っ た ら , 実際 に テレ 
ビ を コン トロ ー ル する 部 分 を 繰り 返し て 条件 判 
断 を 続け て いけ る よう に すれ ば いい わけ で す 。 
GOSUB 文 と LABEL を 使っ て プロ グラ ム を 組み ま 


す 。 

10 _ OPTIONBASE 1:DIM TC$ (30) 
га CLS 

30 GOSUB "ニュ ウラ リョ ク " 

48 GUSUB "コン トロ ー ル " 

за сото ай 

110 LABEL "ニュ ウリ ョ ク " 


Z >3 ペー い 
ZLNE 
お 9 М 


М. 
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128 Ісі 
138 INPUT "тов СЕ“ 55 оцу: "JIS 
140 IF JI$="E" GOTO 388 


150 IF VAL J1%) >23 OR VAL (ЈІФ) ‹0 OR FRAC (VAL (JI$))<>0 THEN GOTO 


160 INPUT "туя : "FUS 


170 IF VAL CFU$) >59 DR VAL (FUS) «а DR FRAC (VAL (FU$))<>0 THEN GOTO 


188 IF LEN(JI$)=í1 THEN JI$="0"+JI$ 
198 IF LEN(FU$)=1 THEN БИж-"й "егіз 
200 JF$=JIS+FU$ 


210 PRINT "スイ ッ チ ON --- i ОРЕ == 60 ¥ wš 
220 SWS=INKEYS (i) 
230 IF 5$Ы%<‹›"й" AND $ыЫы%‹›"1" THEN GOTO гга 


240 PRINT SM まま 
250 IF SWN$="@" THEN CHAN$="00":GOTO 290 
268 INPUT "CHANNEL =" $ CHANS 


278 ТЕ VAL (CHAN$)<1 OR VAL (СНАМФ >12 OR FRAC (VAL (CHAN$))<>0 THEN 


GOTO 25а 
280 IF LEN(CHANS)=1 THEN CHANS="0"+CHANS 
290 PRINT 118; "в" FUS; "я "4 


300 ТЕ Зивя"1" THEN PRINT " ON CHANNEL "«Снаме ELSE PRINT " OFF" 


318 PRINT "DK ? C/N) : 14 
320 Z$=INKEYS (1) 


330 IF 2%<>"М" AND Z$<>"n" AND Zs$<y"Y" AND まく > リッ リ THEN GOTO 320 


340 PRINT 2% 


350 IF Z$="Y" OR Z$="y" THEN TCS (I) =JF$+SIH$+CHANS$ ELSE GOTO 130 


360 I=I+1 
370 GOTO 130 
388 EF=I-i 
390 RETURN 


ー め ん だ お め る "ーーーーーーーーーーーーーーーーーーーー ニ ーーーーー 


行 を 切 つ を りつ な げ だ り … 
非常 に 大 き な プ ロブ プラ ム で メモ リガ が 不足 し そう な と き に は , マル チ ス テー トメ ント を 使っ て 
な る べく だ こさ ん の 内 容 を 1 行 に 入れ て し まい 行 数 を 減ら す と メモ リ の 節約 に な り ま す 。 と 
ころ で , 実に 便利 な こと に X 1 で は , [CTRL] 二 [W|] と いう 操作 で , 2 行 に 分 お れ て いる 行 を 1 
行 に つなげ る こと が で きる の で す 。 だ と えば , 
10 OLS 


2O TIME=O 
の 2 行 を つなげ る と し まし よう 。 カ ー ソ ル を 10 行 に 秘 動 させ , [CTRL] 十 [WM] を 押し ます 。10 行 


。 
) 

) 

) 

) 

H 

) 

) 

) 

) 

; 

! の 中 で あれ ば , カー ソル は どの 位置 に あつ っ て も か まい ませ ん 。 次 に カー ソル を 20 行 の TIME の T 
! に 合わ せま す 。 ご の 状態 で [DEL] キ ー を 押し 続け る と , ТИК БОт, つま り 10 行 の 後に 移動 
し て きま す 。 適当 な と ころ で キー を は な し , コロ ン を 書き 入れ て リタ ー ン キー を 押せ ば 結合 完 
+ 了 で 9。20 行 は まだ 残 つ て いま す ガ ら , 20CR と し て 20 行 を 消し て お ガ が な けれ ば な ら な い の は も 
) ちろ ん で す 。 | 

в ре, 行 が 長 す ぎ だ た り の , 複雑 に な つて し まつ だ と き は , [CTRL]+] を 使っ て 行 を 2 つ に わ 
ける こと も で きま す 。 た と えば , SONT, 

) 

) 

) 

) 

| 
y, 


10 CLS: TIME=O 
と な つ だ の を , も と の 2 つの 行 に わけ る に は , カー ソル を 「CLS」 の 後 の コ ロン に 合わ せ , ЯР 


J] を 押し ます 。 コロ ン 以 下 が 次 の 行 に 移り ます が ガ ら , 適当 に スペ ー ス を あけ て 行 番号 を つけ れ 
ば よい わけ で す 。 本 当 に 便利 で すね 。 


er — ғылт a 


аз атайяйя 1 1 -6?- 


400 LABEL "220-0" 

410 FOR 151 TQ EF 

420 JI*é$=_E=T#*$(TC*$ CI), Z) 

239 FLU$=MIDS(TC* (I), 3, 2) 

440 Зив:м10ъ(ТСЪ CI S, 1) 

454 CrHANS=RIGHT#$(TC* CI) 2) 

468 ІС 71%» ЕКТ%(ТІМЕФ.202 THEN GOTO 518 
4708 ТЕ КЦИФ<>ОМІОФ(ТІМЕФ.4.2) THEN GOTO 510 
480 IF SW$="0" THEN ТУРА ПЕЕ: БОТО 520 ELSI ТОРЫ ON 
490 CHAN=VAL (CHANS) 

S88 CHANNEL CHAN 

518 NEXT I 

520 RETURN 


= -- а: айатва 


5-7 プロン ラム に 頂 が つづ" 


る @ は た し て 動く か ? 


「 テ レビ 24 時 間 了 予約 プロ グラ ム 」 も だ いぶ 完成 に 近づき まし た 。 とりあえず ここ まで 作り 上 げ 
た ブロ グラ ム を 動か し て み ま し ょ う 。 だ た くさ ん の デー タ を 入れ る の も だい へ ん で すか ら , まず 
一 度 だ け 指 定 し た 時 刻 に テレ ビ の スイ ッ チ を ON に し て 試し て みる こと に し ます 。 

現在 の 時 刻 を 確か め る の に 時 計 を 見 る の も よい で す が , ここ は 1 つ X 1 を 使っ て 確か め て み 
まし ょ う 。 フ ァ ン クシ ョ ン キ ー の 2 番目 に は 「? TIME$」 と いう 命令 が 入っ て いま す 。 

プロ グラ ム を 走ら せ て , 1 分 ほぼ し て テレ ビ が ON に な る よう に 指定 し て み ま し ょ う 。 エ ラー 
が 出る よう で し た ら , 何 度 で も プロ グラ ム を 見 直し て 確か め て くだ さい 。 

努力 の か いあ っ て , テレ ビ が 映り は じ め ま し た 。 しかし, どう も 様子 が お か し いよ う で す 。 
音 は 途切れ る L, 画面 の チャ ン ネ ル 表 示 も チラ つき ます 。 ど うし て で し ょ うか ? 原因 を 調べ 
で 次 まし ょ う 。 | 

テレ ビ を コン トロ ー ル し て いる サブ ルー チン を 見 て み ま し ょ う 。 一 見 し て な お か し な と ころ は 
な いよ う で す 。 し か し 考え て みる と , この サブ ルー チン は メイ ン ル ー チ ン の 中 の GOSUB 文 に よ 
っ て 何 度 も 呼び 出さ れ て いま す 。 TIME$ の 示す 時 刻 と 指定 し た 時 刻 が 一 致す れ ば , 電源 を 入れ , 
チャ ン ネ ル を 切り か を る と いう 作業 を し ます 。 と ころ が , 指定 し た 時 刻 は 分 の 単位 まで で , 秒 
まで は 指定 し て いま せん か ら , その 一 致し た 時 刻 の 0 秒 か 659 秒 まで の 1 分 間 は , 何 度 も 電源 
を 入れ て チャ ン ネ ル を 切り か える と いう 操作 を し て いる の で す 。 こ の た め に , 先ほど の よう な 
現象 が 生じ て し まっ だ た わけ で す 。 

スイ ッ チ を ON に する 作業 は , 時 刻 が 一 致し た と き に 一 度 だ け 行 な を ば いい の で すか ら , 何 度 
も 行なう こと を 避 ける た め , 1 つの コー ド に 対し て , テレ ビ の コン トロ ー ル を 行なっ た か どう 
か の マー ク , 言い か えれ ば 書類 で いう 「 処 理 済 」 の スタ ンプ を 押し て お け ば いい わけ で す 。 こ 
の スタ ンプ が 押し て あれ ば テレ ビ を コン トロ ー ル する 必要 が な く な る わけ で す 。 

この 処理 済 の スタ ンプ を 押す スペ ー ス を , プロ グラ ム に も 作る こと に し ます 。 コー ド の 文字 
配列 (TC$(n)) に 対応 し た 数 値 配列 (CH(n) ) を 用 意 し ます 。 それぞれ の 配列 の 添字 の 同じ も 
の を 対応 きせ , テ レビ の コン トロ ー ル が まだ 行なわ れ て いな いも の は CH(n) = 1 に し , 行なわ れ 
た も の を CH(n) = 0 に する よう に し ます 。 こう し て お ぉ お け ば , テレ ビ を コン トロ ー ル する 前 に , IF 
文 で CH (n) を 1 か 0 か を 調べ , 0 だ っ た ら テ レビ の ユン トロ ー ル を 行なわ な いよ うに すれ ば い 
いわ け で す 。 

プロ グラ ム を 手直し し て いき まし ょ う 。 まず 配 列 の 宣言 を し ます 。 

18 OPTIONBASE 1 :0 EN Туф (308), СН (30) 

この よう に , 複数 の 配列 を 宣言 する と き は , カン マ で 区 切っ て 1 つの DIM 文 に 収め て し まう こ 
と が で きま す 。 CH(30) は は じ め は すべ て 未 処理 の わけ で すか ら , すべ て 1 に し て お きま す 。 を 
の た め に “シヨ キ カ " (初期 化 ) と いう サ プ ル ー チ ン を 作っ て お きま す 。 FOR 一 NEXT を 使っ て , 
1 か ら 630 ま で の 配列 に 順次 1 を 代入 し ます 。 

45 йійййійі е 


18 OPTIONSASE 1:02М TC* (305, сн (30) 
20 GOSUB "ショ テカリ" 

38 GOSUB "ニュ ウリ ョ クリ 

40 GOSUB "コン フト ロー ルリ 

за GOTO 4808 

60 LABEL "мая" 

70 FOR 151 TO за 

80 Снсізгі 

9й NEXT 


この CH(n) の よう な 変数 を 一 般 に 「 フ ラグ 」 と 呼び ます 。 フ ラグ と は 旗 の よ うに 他 の 変数 に 対 
し て 目印 に な る よう な 働き も を う まく 〈 表 現し て いま す 。 こ の 目印 で ある フラ グ を 使う た め , コン 
トロ ー ル の サブ ルー チン を 次 の よう に 書き か えま す 。 


418 FOR 151 ТО EF 

420 IF СН<Т) =й THEN ロロ TH 528 

430 JI$=LUEFT*<(TC* 1), 22 

446 FU も =MID も (TC も くく I うう 3, 2) 

458 Зив-м105 (ТС (1), а, こう 

460 CHAN ま =RKIGHT も (T じ (1) ご ッ 

478 IF 115< 2 ЕЕТ+ (Т1 МЕ 5, 2) THEN SITO 52й 
488 ТЕ FU$<>?MIDS (TIMES, 2.20 7-Ем ロロ イロ S20 
499 ТЕ Зиве"й" THEN Тыз ПЕЕ СН («1 51: GOTO бой ELSE TUP DN:CH (I) 
=0 

500 CHAN=VAL (CHANS) 

510 CHANNEL CHAN 

520 МЕХТ І 

530 RETURN 


配列 変数 に た くさ ん の デー タ を 保存 し て お き , 後 か ら の デー タ を 取り 出し て 使う 場合 。 こ の 
「 フ ラグ 」 が た い へ ん 役立つ も の と な り ま す 。 こ の フラ グ で 「 テ レビ 24 時 間 予 約 プ ログ ラム 」 
も 最後 の 仕上 げに か か る よう に な り ま し た 。 


18 ОРТІОМВАЅЕ 1:01М ТС%<З0:, СЫ (за) 

28 GOUSUB "мах" 

38 GOSUB "ニュ ウリ ョ グリ 

48 GOSUB "コン フン トロール 

56 GOTO 40 

る 9 LABEL "ショ キ お リ 

70 FOR Ізі ТО 30 

88 CHXi)=1 

の 9 NEXT 

100 RETURN 

110 LABEL "リニュ ウリ ョ クリ 

120 Ізі 

138 INPUT "オン 時 СЕ" ты): ",71% 

140 IF 1155 "Е" THEN GOTO 388 

150 IF ма (113) >23 OR VAL (ІФ) СВ ОК FRAC СИА (71%22<>8 THEN 5070138 
168 INPUT "779 : "FUS 

178 ТЕ VAL CFUS) >5? ОР ма (FLis)<ü DR FRAC ОЛЫ (FU$))<>8 THEN 6070160 
180 IF (ЕМ(71%3-1 THEN JI$="0"+JI$ 

190 IF LEN(FU$)=1 THEN Fl*$="ü" ас!) 

288 JF$=JI$+FUS 

218 PRINT "スイッチ ON ーーー 1 ОРЕ === В % "4 
220 SWF=INKEYS(1) 

230 IF SH*%$<>"ü" АМО SW$<}"1" THEN GOTA 2209 
240 PRINT 545 

250 IF SW$="@" THEN Снёам®="ай":бБОТО гей 
260 INPUT "CHANNEL =" CHANS 
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270 ТЕ ма СНАМФ) <1 OR VAL (СНАМФ) 212 OR FRAC (VAL (СНАМФ) ) < >80 THEN 
GOTO 266 

280 IF LEN (CHANS) =i THEN CHANS=" 0" +CHANS 

290 PRINT JIS "в" (ЕП: "я A 

300 IF 54%="1" THEN PRINT " ON CHANNEL" iCHANS ELSE PRINT " OFF" 

310 PRINT " DK ? CYAN) в "3 

320 2%=1МКЕҮФ (1) 

330 IF Z$%<>"N" AND Z$<>"n" AND 7®<›"Ү" AND 26<>"У" THEN GOTO 320 

340 PRINT 7% 


350 
360 
370 
380 
390 
400 
318 
428 
430 
440 
450 
460 
470 
480 
490 
=0 

599 
510 
520 
538 


IF 2%="Ү" ÜR Z$="v" THEN TÜË%$(I)=JS$*$+SH$+CHAN$ ELSE GOTO 130 
Із1%1 

GOTO 1306 

ЕЕчТ-4 

RETURN 

LABEL "2255-1." 

FOR 151 ТО ЕС 

IF Сн‹1›=@ THEN GOTO 520 

JIS=LEFTS(TCS(I); 2) 

ЕЦФ=МІОФ (ТС (1), 3, 2) 

SW$=MIDS (TOSCI), S. 1) 

CHANS=RIGHTS CTO (I)  2> 

IF ЈІФ< | ЕЕТ+ (Т1Мм55, 2) THEN SOTO 528 

ТЕ FU$%$<>MISS (TIMES, 4.2) THEN SOTO 528 

IF 5ыФ-"й" THEN ТЫЗ QOEF:CH(1Y=1:GOTO 520 ELSE ТУРЫ ON:CH (I) 


CHAN=VAL (CHANS) 
CHANNEL CHAN 
NEXT I 

RETURN 
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@X1, 画面 の 構成 


る て ここ まで 「 テ レビ 24 時 間 予 約 プ ログ ラム 」 を だ ん だ ん と 成長 る きせ 組み 上 げ て きま し た 。 

BASIC の 命令 で 24 時 間 テ レビ の コン トロ ー ル を 行なう と いう 最初 の 目的 を どう や ら 達 し まし 
КО, この まま で も 十分 使う こと が で きる プロ グラ ム で す 。 た だ , チャ ン ネ ル や 時 刻 を 入力 す 
る に つれ て 次 々 に 行 が 変わ っ て し まい , 画 面 が 非常 に 見 苦し く な っ て し まう の が 気 に な が り ま す 。 
ここ で は , 画面 の 表示 を 整理 し , 不 十 分 な と ころ も 手 を 入れ て し っ か り し た ブログ ラム に ま と 
め 上 げた だ た いと 思い ます 。 

時 刻 や ON/OFF, それ に チャ ン ネ ル な どの デー タ の 入力 は 右 表 の よう な 形 に 整理 どき る と よ 
оста 1 回 分 の デー タ を 1 行 で 表 わ せ る よう に し て お (と, псе 
簡潔 で わか りや すく 誤り な ども 見 つけ や すく な る で し ょ うか ら , 
最初 に 画面 表示 の レイ アウ ト を 決め て し まい まし ょ う 。 

X 1 の 画面 の 構成 は , 横 40 文 字 X 縦 25 行 , また は , 80 X 
縦 25 行 の どちら 6 か を 選ぶ こと が で きま す 。 こ の 画面 構成 を 文字 
数 か 540 字 モ ー ド , 80 字 モー ド と いう よう に 呼び ます 。 み な る 
ん の X 1 は , 今 40 文 字 モ ー ド に な っ て いる と 思い ます か ら , これ を 80 文 字 モ ー ド に し て み ま し 
5%, 


ON/OFF CHANNEL 


WIDTH 80 а 
ほし ます 。 画面 の OK の 文字 も カー ツル も , 横幅 が 半分 位 に な っ た は ず で す 。 試し に , リス ト を 
と っ て みる と, その 違い が よく わか り ま す 。40 т 
文字 モー ド は , 画面 の 見 や すさ を 重視 する 場合 yT 
に 使い , 80 文 字 モ ー ド は , な る べく だ くさ ん の 0 39.0 


文字 を 表示 し た いと き や , ビジ ネス で の 表 作 り 
な どの と き に 多く 使わ れ ま す 。 

INPUT 文 で デー タ を 入れ て リタ ー ン キー を 押す (20.12) 
t, 行 が 変わ っ て し まい ます 。 時刻 や チャ ン ネ 

ル な どの デー タ を 整然 と 表示 する に は , 画面 上 
の 特定 の 位置 を 指定 し て INPUT 文 な どの 命令 を 実 0.24 39.24 
行 る せる 必要 が あり ます 。 Y 

X 1 の 画面 は , 40 文 字 モ ー ド の 場合 文字 を 表示 で きる 場所 (座標 ) は 図 の よう に な っ て い 
ます 。 横 は 0 か ら 39 ま で の 40 文 字 , 縦 は 0 か ら 624 ま で の 25 行 に な り ま す 。 こ の 何 文字 目 の 何 文 
字 目 とい う よ う に 座標 で 表示 位置 を 指定 し て や れ ば , きち ん と 整理 され た 画面 に な が り ま す 。 表 
示 の 位置 を 指定 する の が LOCATE 文 で す 。 
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人 @ 座 標 を 決め る 


LOCATE 文 は , 

と いう 形 で 使い , 又は 横 方 向 , Y は 縦 方 向 の 数 値 を 書き ます 。 つ まり , 座標 を 指定 し ます 。 X 
в, 40 文 字 モ ー ド の 場合 0 か 639, 80 文 字 モ ー ド の 場合 は 0 か 679 の 範囲 に な り ま す 。Y は ど 
ちら の モー ド の 場合 で も 0 か ら 624 ま で で す 。 こ の 範囲 外 を 指定 する と エラ ー に な り ま す 。 
40 文 字 モ ー ド で は , 画面 の 中 央 の 位置 は , LOCATE 20, 
12 に な り ま す 。LOCATE 文 で は PRINT 文 で 画面 に 表示 る れる 
文字 や 記号 の 位置 を 指定 する ほか に ,INPUT 文 で 使わ れる 
プロ ンプ ト 文 の 位置 や INKEY$ 関 数 の カー ツル の 表示 を 決 
め る こと も で きま す 。 た と えば , ШОНА фе 
する の で あれ ば , LOCATE(20, 12) 
LOCATE 20. 12:PRINT"®" 
と な り ま す 。 

X 1 の BASIC に は CURSOR 文 と いう も の も あり ます が , 働 き は LOCATE 文 と まっ た 〈 同じ で す 。 
試し て みて くだ さい 。 


@ プ ログ ラム の 表示 を 整理 


この LOCATE 文 を 使い , テ レビ コン トロ ー ル の 1 回 分 の デー タ を 1 行 に まとめ て み ま す 。INPUT 
文 や INKEY$ 関 数 の カー ソル の 位置 を , Y の 値 は を その まま に X の 値 だ け を 変え て いけ ば よき る そう 
で す 。 1 回 分 の デー タ を 入力 し 終わ っ だ た なら, Y の 値 に 1 を 加え て , また だ た X の 値 だ け を 変え て 
いき ます 。 し か し , この 方 法 で す と , 誤っ た デー タ を 入力 し て し まっ て , IF 文 に よっ て 再度 入 
力 し 直す と き に , 前 の デー タ が 消え ず に 残っ て し まい ます 。 文字 を 消す に は , その 文字 の 位置 
に スペ ー ス を PRINT 文 で 表示 する と いう 方 法 が よく 使わ れ ま す が , だ た くさ ん の 文字 が 書か れ て い 
る 場合 な ど は , この 方 法 で す と 消し 切れ な く な っ て し まう こと も あり ます 。 

その よう な と き は , カ ー ソ ツル か ら 後 を 1 行 分 そっ くり 消し て し まう こと が で きれ ば 便利 で す 。 
先 に 出 て きた [ CTRL ] 十 [E] を 使う と その よう に で きま す 。 こ の キー と 同じ 働き を し て , プロ グラ 
ム 中 に 入れ る こと が で きる の が CHR$( 5 ) で す 。CHR$ は 前 に も 少し 書い た と お り , 数 値 を アス 
キー コー ド と みな し て , その コー ド に 対応 する 文字 な ど に 変換 きれ る 関数 で す 。 数 値 は 0 か ら 
255 ま で で , た と えば CHR$(65) は A と いう 文字 に な り ま す 。 と ころ が , 0 か ら 31 ま で は 文字 や 
記号 で は な く , 制御 コー ド と いう も の に 割り あて られ て いま す 。 CHR$( 7 ) は , [CTRL + С t 
同じ 働き を する も の で , いろ いろ な 働き を プロ グラ ム 中 に 書き 入れ る こと が で きま す (巻末 ア 
スキ ー コ ー ド 表 参 照 )。 
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Өз ンピュータ は 巻き 物 


この プロ グラ ム で は , 最初 に 画面 に 表示 る せる 見 出し (タイ トル ) を 書く よう に し ます 。 と 
ころ が , デー タ を 入力 する 回 数 が 多く な っ て 一 番 下 の 行 に な っ た 場合 , 画面 全体 が 上 に 1 行 上 
が っ て いき ます 。 す る と , この タイ トル 部 が 画面 か ら 出 て 見 え を な く な っ て し まい ます 。 こ の よ 
> な 動作 を 「 ス クロ ー ル アッ プ 」( ス クロ ー ル と は , くる くる と 巻 か れ た も の の こと ) と いい ま 
す 。 タ イト ル 部 を 画面 上 に 残し て むく に は , スク ロー ル す る 部 分 か ら タ イト ル を も はずし て お け 
ば 良い わけ で す 。 ス クロ ー ル する 範囲 (スク ロー ル エ リア ) を 決め る に は , CONSOLE 文 を 使い 
ます 。 

[CONSOLE Ys,Yn,Xs,Xn | we 
普通 CONSOLE 文 に よる 指定 は 縦 方 向 ( 行 数 ) 
だ け で す が , X 1 で は 横 方 向 に も 指定 びき ます 。 
Ys は スク ロー ル の は じ ま る 最初 の 行 ,Yn は スク 
ロー ル す る 行 数 を 指定 し ます 。 双方 向 も 同じ よ 
うに 指定 し , 縦 方 向 だ どけ の 指定 な ら ば 横 方 向 の 
Xs, Xn は 省略 する こと が で ます 。 横 方 向 だ どけ の 
指定 の と き は 必ず 縦 方 向 も 指定 し な いと エラ ー 

に な り ま すか ら 注 意 し て くだ さい 。 

次 の プロ グラ ム を 実行 し て みる と , CONSOLE 

文 の 働き が よく わか る と 思い ます 。 


Y 


ій MED 了 了 Hi に し は 

29 A$="5SHARP PARSINAL COMPUTER Ne 0225 FLUE" X131" 
34 FOR Ү5-й ТО 24:CONSOLE Ү5,25-Ү5 

38 FOR 1=1 ТО 25-YS:PRINT А%:МЕХТ I 

50 CONSOLE ð, 25:С: 5: МНЕХТ YS 

660 FOR YN=25 TO 1 ЗТЕР-1:СОМЗОСЕ 0. YN 
78 FÜR Ісі То ҮМІРЗІМТ AS:NEXT I 

88 PRINT АФ 

90 NEXT YN 

108 FOR XS=9 TI S2:CONSOLE 8,25. KS, 40-X9 
118 PRINT A*:PALSE 2:CLS 

120 NEXT XS 

130 CONSOLE й, 25 


110 行 に ある PAUSE は , プロ グラ ム の 実行 を 一 時 休止 きせ る も の で , 数 値 1 単位 に つき 約 0.1 
秒 休止 し , 次 に 進ん で いき ます 。 

スク ロー ル エ リア 外 に , LOCATE 文 で 位置 を 指定 する こと は で きま せん 。 ま た , 一 度 指定 され 
た スク ロー ル エ リア は , 改め て 指定 し 直る れる まで 変わ る こと は あり ませ ん が , WIDTH 文 で 文字 
数 を 変え ん た と き や , [CTRL | 十 [D] を 押し た と き に は 解除 きれ て , CONSOLE 0, 25, 0, 39(79) の 
状態 に 戻り ます 。 

せっ か 〈 表 の よ うに 表示 きせ る の で すか ら , き れい に スタ ー ト さる せま し ょ 2 う 。[ SHIFT | 十 [CLR | 
か , [CTRL ] [上 ] を 押す と 画面 が きれ い に な り ま し だ 。 

プロ グラ ム 中 で これ を 行なう の は , CHR$(12) の 他 に CLS が あり ます 。 CLS は Clear Screen の 
略 で すか ら , 文字 どおり 画面 を きれ い に す る 命令 で す 。 ス クロ ー ル エリ ア が 指定 され て いる 場 
-?4- атайтата да 
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合 。CLS が 働く の は その エリ ア に 限ら れ て ます 。 

ъс, 画面 の 見 出し の 部 分 を 0 行か 6 2 行 ま で の 計 3 行 に わた っ て 書き ます 。160 行 に ある PRINT 
STRING$(39, “一 ") に よっ て , デー タ 表 示 部 と 分 け ま す 。 STRING$ は , 任意 の 文字 列 を 任意 の 数 
だ け 用 意 す る も の で す 。 を そし て CONSOLE 文 で 4 行 目 か ら 625 行 目 ま で ども スクロール エ リア に 指定 
し ます 。 

TC$( 1 ) の 基 に な る デー タ が 入力 され る 画面 上 の 行 は . エニ =1 の と き 第 3 行 , lI1 ニ =2 の と き に 
は 第 4 行 し な り ま す の で , LOCATE 文 の Y の 値 に は I 十 2 を あて は め て いけ ば よい で し ょ う 。Y 
の 値 に は I の 代り に S と いう 変数 を 使っ て いま す 。 こ れ は , デー タ が 20 回 分 入力 され る と, x 
クロ ー ル エリ ア が デー タ で いっ ぱい に な っ て し まう の で , 20 回 分 入力 し 終わ っ た と ころ で , 一 
度 CLS 文 で 画面 上 の 表示 を 消し て か ら , 再度 第 3 行か ら 入力 を 行なう よう に し ます 。 こ の 判断 は 
380 行 で 行ない ます が , I の 値 は 再び 1 に 戻す こと は で き な い の で , I の 代り に S を 使う わけ で 
7. LOCATE 文 や CONSOLE 文 を 使う と き は , 画面 上 の 1 文字 目 , また は 1 行 目 は 0 に な る こと を 
忘れ な いで くだ さい 。20 行 目 に ある INIT に つい て は <《8 - 6》 で 説明 し ます の で そちら を 参照 し 
て くだ きい 。 

これ で 「 テ レビ 24 時 間 了 予約 プロ グラ ム 」 が 完成 し まし た 。 は じ め て の プロ グラ ム に し て は 多 
すぎ る ほど の 内 容 を 持っ て いま す が , わか ら な い 個 所 は 何 度 で も 読み 返し て 理解 し て お むく よ う 


に し て くだ さい 。 

18 ОРТІОМВАЅЕ 1:01м TC ま も (39) 。 CH (30) 
га INITiMIDTH49:CLS 

за GOSUB "yan" 

48 GOSUB "ニュ ウリ ョ クリ 

50 LOCATE 16, 12:PRINT TIMES 
60 GOSUB "コントロー 上ル " 

70 GOTO 50 

80 LABEL "ショ キ カ " 

90 FOR I=1 TO 38 

108 CHKI)〉=1 


118 NEXT 

129 RETURN 

130 LABEL "ニュ ウリ ョ クリ" 

140 CLSILOCATE 0, #:РКІМТ "вв: #9 ON / ОЕЕ CHANNEL 0K 
>" 

150 LOCATE 0,1: PRINT "Ел?! 1 8 1-12 CYZN 


168 LOCATE Q,2:PRINT STRINGS (37, "-") CONSOLE 3,22 

170 I=1:S=1 

188 LOCATE 0,S+2:INPUT "",JI$ 

198 ТЕ JI$="E" GOTO 418 

200 IF ЧАЦ (JI$)>23 OR УА (718) «а OR FRAC (VAL (71622528 THEN LOCAT 
Е 9,S+2iPRINT CHR$ (5) :GOTO 180 

210 LOCATE 2,S+2:PRINT ":" 

220 LOCATE 3,S+2:INPUT "", FUS 

230 IF VAL (FU$)>5? ОК VAL ‹ҒОФ) <Q ОК FRAC (VAL (FU$))<>0 THEN LOCAT 
Е 3,S+2:PRINT СНКФ (5) :60Т0 228 

240 IF LEN(JI$)=1 THEN JI$="0"+JI$ 

250 IF LEN (FU$)=1 THEN FU$="0"+FUS 

260 JF$=JI$+FU$ 

270 LOCATE 13,5+2 

288 SW$=INKEY$(1) 

290 IF SWH$<>"@" AND SW$<>"1" THEN GOTO 286 

300 IF SW$="0" THEN CHAN$="00":LOCATE 13,S+2:PRINT "OFF":GOTO 34 
9 ELSE LOCATE 13,S+2:PRINT "Ом" 
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318 LOCATE 25,S+2:INPLT "", CHANS 

320 IF VAL (CHANS) 212 ОК VAL (CHAN$)<1 OR FRAC (VAL (CHANS) > < >0 THEN 
LOCATE 25,5%2:РКІМТ CHR$ (5) :GOTO 318 

330 IF (ЕМ(СНАМФ) =1 THEN СНАМФ= "0" +СНАМЪ 

340 LOCATE 36, S+2 

350 Z$=INKEY$(1) 

360 IF 7%<>"Ү" AND Z$<>"y" AND Z$<>"N" ANO Z$<>"n" THEN GOTO 359 

370 PRINT:IF Z$="Y" OR Z$="y" THEN TC$(XI)=JF$+SH$+CHAN$:LOCATE З 
éyS+2:PRINT "ж" ELSE 186 

380 I=I+1:S=S+1:IF 5-21 THEN CLS:S=1 

390 IF I=30 THEN GOTO 50 

400 GOTO 180 

410 FE=I-1 

420 RETURN 

430 LABEL "コン トロ ー ル " 

448 FOR Ізі TO FE 

450 IF СН<12-8 GOTO 550 

460 1145 ЕҒТФ (ТсФ (І), 2) 

478 FU$=MID$ (ТсФ (1), 3,2) 

480 ЅИФ=МІО%Ф (ТсФ (1), 5, 1) 

498 снамчъ-ктентъ (ТсФ (1), 2) 

500 IF 113< А ЕҒТФ‹ТІМЕФ, 2) GOTO 556 

510 ТЕ ҒОФ< ЭМІО%С(ТІМЕФ, 4,2) GOTO 550 

520 ТЕ ЗИФ="0" THEN ТОРИ ОРЕ: СН (1) =0:60Т0 558 ELSE ТУРЫ ОМ: СН (I) 
= の 

530 CHAN=VAL (CHANS) 

540 CHANNEL CHAN 

550 NEXT I 

560 RETURN 


за ブ プログ ラム を 保存 


@ テ ー プ に セー プ 
みな る ん が キー ボー ド か ら 打 ち 込 ん だ プロ グラ ム は , コン ピュ ー タ 内 部 の メモ リ に 記憶 きれ 
て いま す 。 


この プロ グラ ム は , メモ リ に 記憶 きれ て いる 限り , い つ で も 必要 な と き に RUN と いう 命令 に よ 
っ て 走ら せる こと が で きま す 。 

人 間 に は , と きど き う っ か り 忘 れ て し まっ た だ たり, 時 が た つ に つれ て 記憶 が 薄れ た り と いう こ 
と が あり ます が , 一 晩 眠っ た か ら と いっ て 前 日 の こと を すっ か り 忘 れ て し まう と いう こと は あ 
り ま せん 。 ところが, コン ピュ ー タ は , せっ か く 〈 く 苦労 し て 打ち 込ん だ プログ ラム も , 電源 を 切 
っ た 瞬間 に すべ て 忘れ て し まい ます 。 だ か ら と いっ て , 寝る と きも 外出 する と きも X 双 1 の 電源 
を 入れ っ ぱな し に し て お く 《 く わけ に は いき ませ ん 。 そこ で , メモ リ の 中 の プロ グラ ム を 別 の 形 に 
し て 記録 し て おか な く 《 て は な り ま せん 。 

ここ で は , カモ セット テー プ へ の プロ グラ ム の 記録 を 行なっ て み ま し ょ う 。 X 1 の 本 体 に は カ 
セッ ト デ ッ キ が つい て いま す 。 

プロ グラ ム を カセ ッ ト テ ー プ に 記録 する に は , SAVE と いう 命令 を 使い ます 。 ま だ, この よう 
に し て メモ リ の 中 の プロ グラ ム を 外部 記憶 装置 で 記録 する こと を 「 セ ー プ する 」 と いい ます 。 

SAVE “TV-24" gi] 
と する と , X 1 本 体 の イン ジ ケ ー タ ラン プ の WRITE が オレ ンジ 色 に 点灯 し て , 自動 的 に テー プ 
が 回 り は じ め ま す 。 プ ログ ラム の 記録 が は じ ま り まし だ た 。 も ちろ ん , カモ セット デッキ の 中 に は 
プロ グラ ム を 記録 する を ため の カセ ッ ト テ ー プ が セッ ト さ る れ て いな けれ ば な り ま せん 。 カセット 
テー プ が 入っ て いな いと き は , 

Out of tape 
と いう X 1 か ら 5 メッ セー ジ が 画面 に 現われ ます 。 こ の よう な と き に は , カセ ッ ト テ ー プ を セッ 
ト し て も う 一 度 同じ よう に SAVE 命 令 を キー ボー ド か ら 打 ち 込 ん で や ら 6 なく とも, カー ツル を , 
前 に 記入 し た SAVE 命 令 の と ころ まで 移動 きせ て リタ ー ン キー を 押す だ け で よい の で す 。 も し 「Out 
of tape」 の メッ セー ジ が 目 ざ わ り で あれ ば , その 行 の 一 番 左 の 端 ま で カ ー ソ ツル を 移動 きせ [ CTRL | 
キー と [2Z] キ ー を いっ し ょ に 押し て み ま し ょ う 。[CTRL | キー[2Z] キ ー を 同時 に 押す と その 行 の カ 
ー ツ ル か ら 右 側 の 文字 それ に その 下 の 行 の 全部 が いっ ぺん に 消え て し まい ます 。 

ST, カモ セット テー プ が 止ま り 画 面 に 「Ok」 と 表示 る れ た ら , テー プ へ の プロ グラ ム の 記録 
は 完了 で す 。 正しく 記 録 き れ て いる か どう か を 確か め て お きま し ょ う 。 


@ セ ー プ を チェ ッ ク 


まず , ブロ グラ ム の 記録 を 開始 し た と ころ まで カセ ッ ト テ ー プ を 巻き 戻る な けれ ば な り ま せ 
ん 。 新 し い カ セッ ト テ ー プ を 使っ て テー プ の 最初 か ら 記 録 を は じ め た 場合 に は , 巻き 戻し ボタ 
ン を 押す だ け で よい の で す が , さて カセ モット テー プ の 途中 に 記録 を 行なっ た 場合 は どう すれ ば 
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よい で し ょ う 。 カ セッ ト デ ッ キ の 横 に ある カウ ンタ の 数 字 を 日 安 に する の は 確か に 良い 方 法 で 
す 。 しかし, X 1 の キー ボー ド に は わざ わざ カセ ッ ト コ ント ロー ルキ ー が 用 意 さ きれ て いる の で 
すか ら 6, これ を 使い まし ょ う 。 

[SHIFT] キ ー と [44] キー を いっ し ょ に 押し ます 。 

APSS- 1 と 命令 を 与 を て も 又 1 は 同じ 動作 を し ます 。 こ うす る と , 双 1 は 今 書き 込ん だ プロ グ 
ラム が 記録 きれ て いる 最初 の 部 分 まで , カモ セッ ト テ ー プ を 巻き 戻し て くれ ます 。 前 に 勉強 し た 
こと で す が , 思い 出し まし た か ? 

カセ ッ ト テ ー プ に プロ グラ ム が 正しく 記録 る され て いる か どう か を 確認 する た め の 命令 は 2 つ 
あり ます 。 

VERIFY “TV-24” 41 
LOAD? “TV-24” 4 

どこ が 違う か と いえ ば , 実は どこ に も 違い は な 〈 2 つの 命令 は まっ た 〈 同 じ 働 き を し ます 。 
で すか ら ど ちら を 使っ て も 構わ な い の で す が , LOAD? 命 令 で は クウ ェ ス チョ ンマ ー ク を つけ 忘れ 
る だ け で 別 の 命令 まな っ て し まい ます 。SAVE と は 逆 に カセ ッ ト テ ー プ か ら プ ログ ラム を 読み 出 
す 命令 が LOAD で す 。 モ セー プ し だ プロ グラ ム に 誤り が な けれ ば よい の で す が 。, 万 一 正しく セー プ 
きれ て いな か っ た 場合 , LOAD 命 令 を 実行 する と X 1 の メモ リ の 中 の プロ グラ ム ま で こわ れ て し 
まう こと に な り ま す 。 誤り を 避け る た め に は , VERIFY を 使う 方 が よい で し ょ 5, 

VERIFY。 ま た は LOAD? 命 令 を 実行 する と , 双 1 は カセ ッ ト テ ー プ に 記録 きれ た プロ グラ ム と , 
メモ リ 内 の プロ グラ ム を 1 文字 ずつ 比べ , 間違い が な けれ ば 「OK」 と 表示 し , 1 カ所 で も 培う 
と ころ が あれ ば 「Tape read error」 と 表示 し ます 。「Tape read error) が 表示 る され た と き に は , 
も う 一 度 セ ー ブ を や り 直 る な けれ ば な り ま せん 。 こ の よう に し て , プロ グラ ム の セー ブ が 正 し 
《 で きた か どう か を 確認 する こと を ,「 ヴ ゲ ェ リフ ァ イ す る 」 と いい ます 。 これ は 大 切な 作業 で す 。 

「”」( ダ ブル クォーテーション ) で 囲っ た 「TV-24」 と いう の は , プロ グラ ム の 名 前 で す 。 
プロ グラ ム の 名 前 の こと を 一 般 に ファ イル 名 と 呼び ます 。 ダ ブル クォーテーション の 間 に は 13 
文字 まで の 記号 や 文字 を 自由 に 書け ます か 6, みな る ん で 工夫 し て プロ グラ ム に も 素敵 な 名 前 
を つけ て くだ さい 。 

プロ グラ ム を 記録 し た カセ モット テー プ グ は , ミュ ー ジ ッ ク テ ー プ と 同じ よう に 保管 し ます 。 フ 
ァイル 名 と カセ ッ ト デ ッ キ の カウ ンタ の 数 字 , 記録 し た 年 月 日 な ど カ セッ ト テ ー プ の ラベ ル 
に 記入 し ます 。 ミ ュー ジッ ク テ ー プ の ラベ ル に アー チ ス ト の 名 前 を 記入 し た り , 録音 年 月 日 を 
記入 する の と 同じ で す 。 直射 日 光 を 避け て , ホコ リ の 少な いと ころ で 保管 する と いう 点 も 同じ 
で す 。 テ ー プ に は 磁気 に よっ て プロ グラ ム が 記録 きれ て いま すか ら , 強い 磁気 の 近く で の 保管 
も いけ ませ ん 。 ミ ュー ジッ ク テ ー プ で は 音 が 多少 変 に な っ た と いう 程度 の 事故 が , パソ コン で 
は 致命 的 で ある こと も し ば し ば で す 。 
最近 で は , パソ コン 用 と し て 10 分 , 15 分 と いっ た 短い テー プ も 市 販 さ れ て いま す 。 プ ログ ラ 
ム の 保管 に は 60 分 , 90 分 と いっ た 長い 時 間 の カセ ッ ト テ ー プ より も 使い 勝手 が よい の で , こち 
ら を お すす めし ます 。 こ れ ら パソ コン 用 テー プ に は リー ダー テー グ プ (テー プ の 最初 に つけ 6 れ 
た 録音 で どき ない 部 分 ) が つい て いま せん か ら , ブロ グラ ム の 記録 に は も っ て こい で す 。 

ファ イル ネー ム の 後 を ピリ オド で 区 切っ て 3 文字 つけ る こと が で きま す 。 これ は , プロ グラ 


== 
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ム を 修正 し て セー ブ し 直す と き な ど , 同じ ファ イル ネー ム を 区 別 す る た め な ど に 使う こと が で 
きま す 。 こ れ を 拡張 子 と いい ます 。 


っ こめ ん だ お めも 


| 
| 
) 
) 
| 
| 
| 
! 
| 
! 
) 
) 
) 
) 
| 
| 
) 


} 

Н テー プ 内 容 を みた だ いと き は … 

I BASIC の 勉強 が 進ん で こる に つれ て , プロ ブラ ム を 記録 し だ カセット テー プ の 数 も だ ん だ ん 
\ と 増え て いき ます 。 新しい プロ プラム を 作り は じ め た と き , 以前 に 作っ た プロ ブラ ム を 参考 に 
\ し た いと いう こと も ある で し よう 。 こん な と き に , さて どの テー プ に 何 の プ ログ ラム が 入っ て 
! いた か な , と 探し まわ ら な こ て も いい よう に , プロ ブラム テ ー プ は 上 に 整理 し て お きだ いも 
の で す 。 そ の だ た め に は , テー プ へ の 記録 に も 気 を 使 つ て お こと あと あと 便利 だ と いう こと は , 
| 前 に も お 話し た と お り で す 。 どん お プロ プラ ム ガ 入 つて いる の の を ラベ ル に きち ん と 記録 し て 
) お この が よい と いう こと も お 話し まし た 。 も レラ ベル に 何 も 書か れ て いな い テ ー プ や , ラベ ル 
+ が な こなつ っ て し まつ だ テー プ が あつ た ら , 

| LFILES 

} 

} 

Н 

) 

) 

) 

) 

) 

) 

) 

| 


と 命令 し ます 。X 1 は , カセ ツ ト テ ー プ を 一 度 全部 巻き 戻し て ら 順 に 早送り を し て , 707 
ラム の 名 前 (ファ イル 名 ) だ け を 拾い 出し ます 。 し が も 驚い た こと に , その プロ ブラ ム を 記録 
し た 年 月 日 や 時 刻 も ファ イル 名 と と も に 画面 に 表示 し て ぐれ ます 。FILES の 命令 を 実行 し て も , 
現在 X 1 の メモ リ の 中 に 入っ て いる プロ グラ /。 に は な ん の 影響 も あり ませ ん 。 フ ァイル 名 が わ 
か つた ら , 今度 は きち ん と 記録 し て , カセ ツ ト テ ー プ を 保管 し まし よう 。 

プリ ンタ を 持つ て いる 人 は , 

LFILES 
で 紙 の 上 に 打ち 出す こと が で きま す ガ がら, これ を テー プ の ケー ス に 入れ て お ぐ と よい で し よう 。 
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3-10 文法 が 違っ て こる よび 


@ コ ンピュータ が 間違い を 教え て くれ る 


ここ まで , 1 つの プロ グラ ム を 少し ずつ 打ち 込ん で きま し た 。 慣れ な い キ ー ボ ー ド に 向かっ 
て 悪戦 苦闘 し た 方 も 多かっ だ の で は な いで し ょ うか 。 

あげ くく の は て に , RUN き せ た ら 画面 に は 何やら 「xXx error」 の メッ セー ジ 。 エ ラー と いう か 
ら に は , どこ か が 間違っ て いる に 違い な い の に , は じ め は どこ が と どう 間違っ て いる か る っ ぱり 
わか ら な いと いう 方 も いた こと で し ょ う 。 プ ログ ラム の 誤り を バグ と か 皿 と 呼び ます 。 ま たか, 
誤り を 直す 作業 を も デバッグ , ある い は 中 を 取る と いい ます 。 エ ラー と 表示 る され て プロ グラ ム の 
実行 が 止ま っ て し まっ た と き に 能率 よく デバ ッ グ する 方 法 を 紹介 し まし ょ 5. 

со хх error іп つ 〇 」 と いう コン ピュ ー タ か ら の メッ セー ジ を 「 エ ラー メッ セー ジ 」 と 
いい ます 。「in 〇 〇 」 は を その エラ ー が 起こ っ た 行 番号 で す 。BASIC で は , この よう に 誤り が あ 
れ ば その 誤り の 原因 と , 発生 し た 行 番号 を 知ら せ て くれ ます 。 

コン ピュ ー タ の 動作 を 直接 コン トロ ー 
ル す る 機械 語 (コン ピュ ー タ の 中 で 扱わ 
れ て いる 言語 ) で は , 誤り を 知ら せ て く 
れる と どころ か, 誤っ だ 部 分 は 誤っ た と お 
bi, その まま 実行 きれ て し まい ます 。 
コン ピュ ー タ の 動作 が , キー ボー ド か ら 
まっ だ た く コ ント ロー ル 不 能 の 状態 (RE 
状態 ) に まで 及 ん で し まう こと も あり ま 
す 。 こ うな っ て し まっ だ た ら 5 も うそ の プロ 
グラ ム 自 体 も 破壊 され て し まう こと が 多 
l, せっ か 〈 打 ち 込 ん だ プロ グラ ム も た 
っ た 1 文字 の 誤り で だ いな し に な っ て し 
まい ます 。BASIC で は , 誤り が あれ ば を 
こ で プログ ラム の 実行 を 止め 、 エラ ー メ 
ッ セ ー ジ を 出し て プロ グラ ム の 修正 を 要求 し て きま す 。 こ の よう に , コン ピュ ー タ と 人 間 が 対 
話す る 形 を や 持っ て いる こと か ら , BASIC の よう な コン ピュ ー タ 言語 を 「 対 話 型 言 語 」、 と も 呼び 
ます 。 


念 文法 の 間違い だ よ ! 


エラ ー に は , いく つも の 種類 が あり ます が , た ぶん みな さん が も っ と も 多く 経験 され た の は , 
「Syntax error」 だ っ た の で は な いで し ょ うか 。 
Syntax と いう の は 文法 の こ と で す 。Syntax error は ,「 あ な た だ た の 打ち 込ん だ プロ グラ ム の 内 容 が , 


-в8- атат айвй ла 


3 テレ ビ 24 時 間 予 約 プ ログ ラム 


BASIC で 決め られ た 文法 と 合わ な い 」 と いう こと を 表わし て いま す 。BASIC で は , た と えば PRINT 
と いう 命令 が あれ ば , これ を 解釈 し て 画面 に 表示 する た め に 必要 な 処理 を 行ない ます 。 と ころ 
が この 命令 文 が た と え ぇ 1 文字 で も 間違っ て いる と , コン ピュ ー タ は 何 を し て よい か わか ら な く 
な り ま す 。 私 た だ ち 人 間 な ら 6, た と えば 「PRINT」 が 「PRIMT」 に な っ て いた だ たと し て も , 前 後 
の 関係 か の ら , その 意味 を 理解 する こと が で きま す 。 と ころ が コン ピュ ー タ で は , この よう な 融 
通 は きき ませ ん か ら , 文法 が 違っ て いま す , と いう メッ セー ジ を 出し て 止ま っ て し まう わけ で 
す 。 正しい プロ グラ ム と デー タ を 与え れ ば , 間違え る こと も な く 〈, 途中 で あき る こと も な ( 仕 
事 を する コン ピュ ー タ で す が , 逆 に いえ ば 融通 が きか ず 非 常に 頑固 で も ある の で す 。 

「Syntax error in メメ 」 と 表示 る され だ とき の プロ グラ ム の 直し 方 を 見 て み ま し ょ う 。 まず, 
エラ ー の 出 た 行 を 表示 る せる わけ で す が , この と き に は , LIST 行 番号 し と する か わり に , 

LIST. まだ は L ~ 

と し ます 。X 1 の BASIC で は , LIST の 最後 に つけ た 「.」( ピ リオ ォ オド) に 現在 実行 し て いる 行 
番号 を 管理 する 働き が あり ます 。 エ ラー が 発生 し て プロ グラ ム が 止ま っ て し まっ た 場合 に は , 
エラ ー の 発生 し た 行 番号 が ピリ オド の 中 に 入っ て いま す (と いっ て も , A 三 1 の よう な 代入 文 
と は 違い ます )。 た と えば , 次 の 例 で は , 

778 СЕ 57 771) 28 

Syntax error іп 540 

ок 

LIST, 

540 ІМРІТ"779 "FUS 

Ok. 

a 
540 行 に エラ ー が あり ます か ら ,「LIST.」 と する L, その 行 が 表示 され ます 。 こ こ で は ,「INPUT」 
と すべ き と こ ろ を 「INPIT」 と 打ち 間違え た よう で す 。 こ の よう な と き は , カー ソル を 違っ て い 
る 「 1 」 に 重ね , 正しい 「U」 に 直し ます 。 を そし て リタ ー ン キー を 押せ ば 修正 完了 で す 。 

さら に 便利 な ユマ ンド に 「EDIT」 が あり ます 。EDIT は 編集 の 意味 です が , BASIC で は 1 行 の 
中 身 の 編集 を 行ない ます 。 先ほど の 場合 , 540 行 に エラ ー が あり , それ で 修正 し よう と し て いる 
わけ で すか ら ,EDIT 540 また は E. 540 と する か , 先ほど の ピリ オド の 働き を 利用 し て , Е. と 
し て や る と , 次 の 例 の ょ うに その 行 が 表示 きれ , カー ツル は その 先頭 の 命令 の と ころ に 現われ 
ます 。 そ の まま 間違え た と ころ に カー ツル を 移動 る させ て 修正 を 行 な を ば よい わけ で す 。 他 に も 
方 法 が ある よう に 思え を ます が , 実用 上 は , エラ ー が 出 た ら 6,「E.. |」 と 覚え て お け ば 能率 よく 
修正 する こと が で きま す 。 
オン 時 (СЕ >“ 4790 20 
Syntax error іп 540 
ок 
Е.. 
540 ІМРІТ"?>?% "FUS 


ок 
а 


と き と し て , 命令 文 の つづ り の 文字 が ぬけ て 足り な い 場 合 も あり ます 。 こ の よう な と き は , 
[INST ] キ ー を 使っ て 足り な い 文 字数 だ け ス ペー ス を 空け て か ら 不 足 分 を 打ち 込め ば よい わけ で す 。 
し か し , 次 の 例 の よう に 文字 数 が 多い と き や ,「: 」( コ ロン ) で つない だ マル チ ス テー トメ ン 
ト の 中 の 1 つの 命令 が そっ くり 落ち て いる よう な 場合 に は , 別 の 方 法 を 使っ た 方 が 便利 で す 。 
新しく 挿入 する 命令 や 文 の 次 の 文字 に カー ツル を 合わ せ て お いて , [CTRL |] 十 [Al を 押し ます 。 
1 8181008801 —81— 


RUN 
Syntax error іп 10 


ок 


Е 


та ОРТ IO0BASE 1:01М ТУФ (30), CH 30) 


キー を 押し た だ け で は , 画面 上 に 変化 は あり ませ ん 。 しかし, ぬけ 落ち て いた 個所 を その ま 
ま キ ー イ ン す る と , 自動 的 に カー ツル か ら 後 を 右 に ずら し な が ら 打 ち 込 ん だ 文字 を 挿入 し て い 
きま す 。 つ まり 「 イ ン サ ー ト モー ド 」 に な っ て いる の で す 。 


RUN 
Syntax error in 16 


ок 


Е 


イン サー トモ ー ド は , も うぅ 一 度 [CTRL | + [А] 


解除 きれ ます 。 

打ち 込ん だ プロ グラ ム が 大 きく な っ て くる と 一 度 で うま く 〈 動 《 く と いう こと は な か な か あり ま 
せん が , な る べく な ら あ まり エラ ー で 止ま っ て も らい た く な いも の で す 。 プ ログ ラム を 打ち 込 
むと き は , 速 る さよ り も 正確 る を 大 事 に し て 正しい 文 を 打ち 込む よう に し まし ょ う 。 


ー め ん だ ね めも ーーーーーーーーーー | 
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X 1 


ふ だ つ の 命令 文 の 謎 


を 押す か , カー ソル キー で カー ソル を 移動 する と 


X 1 の BASIC マ ニコ ユア ル を 見 て いる と , 同じ 内 容 を 表わす 命令 語 が 2 つ 用 意 さ れ て いる も の 
が ある こと に 気がつき ます 。 だ と えば , マニ ユア ル の 24 ペ ー ジ を 開い て みる と , CURSORE 


LOCATE と いう ステ ー ト メン ト が あり , 


説明 を 読む と , 


この 2 つ は 同じ 命令 で ある , と 書い 


て あり ます 。 な ば この よう な も の が ある の で し よう ガ 。 そ の 理由 は , BASIC に 「 万 言 」 が ある 


だ た め な の で す 。 


X 1 を 開発 し た GHARP に は , 長い 歴史 を 持つ を だ 「MZ シ リー ズ 」 と いう X 1 の 兄 買 分 に あ 


だ る パソ コン が あり ます 。 ご これ ら の パパ 


ソコ ン に は , 優秀 な 実行 速度 を 備え だ 
純 国産 の "SHARP BASIC」 が 多く 
使わ れ て いま す 。 そ れ に 対し , 現在 国 
内 で 販売 され て いる パソ コン の ほとん 
ど が , アメ リカ の 「 マイ クロ ソフ ト 社 」 
が 作 つ だ BASIC に , 洗 機種 に よ つ て い 
ぐつ が の 機能 を つけ 加え だ も の を 使用 
し て いま す 。 ご の 2 種類 の BASIC で は , 
同じ 仕事 を 表わす 命令 文 ガ 先ほど の 例 
の よう に 異な つて いる も の が あり ます 。 
X 1 の BASIC で は 今 ま で どちら の 
BASIC に 親しん で きだ 人 で も 使え る よ 
э, 両 亡 の 命令 語 を 用 意 し て いる の で 
9, 

2 つの 書き 万 を 持つ も の に つい て 表 
に まとめ て お きま し た の で 参考 に し て 
ぐだ さい 。 


介 と し て ある も の に つい て は 本 書 の 該当 する ペ 
ー ジ , まだ は マニ ユア ル を 参照 し て くだ さい 。 


命 令 ë の H. # 

SHARP BASIC マイ クロ ソフ ト 系 
LIMIT CLEAR @ 
VERIFY LOAD ? 

CLR CLEAR @ 
(INPUT は X1 特 有 ) LINE INPUT 
GRAPH SCREEN 


(MZ 系 と は パラ メー タ の 書き 
方 が 違う ) 
CURSOR 
CONSOLE 
(パラ メー タ の 書き 方 に 注意 ) 
LINE 
(同上 ) 
DEF KEY 
KLIST 
MUSIC 
TEMPO 


LOG(X) 


SHARP BASIC の LOG(X) は 常用 対数 で ある の に 対し , X 1 


で は LOG は 自然 対数 (SHARP 
SIZE 


LOCATE 
CONSOLE 


LINE 


KEY 

KEY LIST 
PLAY 
PLAY 
LOG(X) 


BASIC の LN (X) で ある ) 
FRE(X) 


тух РО an тр жо 


ке 
те. 


i... v... sd. 


na T МНР ААШ YI VU Kl ШР МР УР a q q SG SG S N A a a aa 


の 2 4 


T ZS Z ラク プル プペ プン オガ ТАР e 


22 22 1 


4 


ベト お も し SS グラ タッ ックス 


за 8181808811 ウー 


4-1 コウ ビュー? 2 ラフ イィ ッ ンス っ て こん な も 


近頃 は テレ ビ の コマ ー シ ャ ル な ど で も コン ピュ ー タ ・ グ ラフ ィ ッ クス が ずい ぶん と 使わ れる 
Фото стаж Lis 

グラ フィ ックス と いえ ば , 絵画 や グラ フ の 技法 の こと で す 。 ま た 絵画 や グラ フ そ の も の の こ 
と も 指し ます 。 

テレ ビ ・ コ マー シャ ル で 使わ れる コン ピュ ー タ ・ グ ラフ ィ ッ クス は , 専用 の 大 型 機 で 制作 き 
れ て いま すか ら , 非常 に 級 密 な うえ ぇ , 色 も 豊富 で 鮮明 な 作品 に な っ て いま す 。 フ パソ ツユ コン で 同じ 
作品 を 作る の は ちょ っ と むず か し いで し ょ う 。 しかし, X 1 の グラ フィ ックス 機能 は , 他 の パ 
ソコ ン に 比べ る と 極め て 充実 し て おり , し か も 手軽 に 扱え る の で , 工夫 し だ いで みな さん に も 
プロ の アー チ ス ト に 負け な い 作 品 を 作る こと が で きる で し ょ 2 う 。 

人 間 が 日 常 生 活 で 得る 情報 の 8 割 が 視覚 に よる も の だ と いう 調査 結果 が あり ます 。 ゲ ー ム や 
アー ト だ け で な 《, ビジ ネス 用 の プロ グラ ム に も $ も おおいに コン ピュ ー タ ・ グ ラフ ィ ッ クス を 応 
用 し だ ぶら と ろ で す 。 

この 章 で は , X 1 の グラ フィ ッ ク 機 能 を 調べ で ながら 6, プロ グラ ム へ の 応用 の 実際 を 学ん で い 
きま し ょ は う 。 


@ ポ イン ト を セッ トノ 


新聞 の 写真 を 虫 メ ガ ネ を 使っ て の ざい て み 
BL, 小 き な 点 の 集まり で で き て いる こと が 
わか り ま す 。 コ ンピュータ ・ グ ラフ ィ ッ クス 
t, 同じ よう に 小さ る な 点 の 集まり で 描か れ て 
いま す 。 デ ィ ス プレ イ テ レ ビ に 表示 され て い 
る 記号 や 文字 も , よく 目 あ を こら し て みる と 小 
る な 点 の 集まり で 作ら れ て いる こと が わか り 
37. 

コン ピュ ー タ ・ グ ラフ ィ ッ クス の 最も 基本 
的 な 作業 は 画面 上 の 指定 し た 位置 に 点 を 打つ 
EC Woo 


X 1 の 画面 が どの よう な 構成 に な っ て いる 
の か , まず 最初 に 確か め て お きま し ょ う 。 Xs L, 小さ な 点 の 集まり で で き て いる こと が わか 
1 では, 前 に も 少し ふれ まし た が , 画 面 の 構成 を 大 ま か に 分 け て も 2 種類 指定 する こと が で きま 
す 。 


ІЛ 
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4 X1 お も し ろ グ ラフ ィ ッ クス 


横 40 文 字 X 縦 25 行 と 80 文 字 X25 行 の .2 (44-1) 
Lab, つま り , 40 字 モー ド と 80 字 モ or ЗІ 49 639 
ー ド で す 。40 字 モー ド の 場合 , グラフ 
ィ ッ クス で は , 横 320X 縦 200 の 点 を 扱 а 
うこ と が で きま す 。80 字 モー ド の と き 
199 199 


は 640X200 で びす 。 グ ラフ ィ ッ クス を 描 

《 点 は 文字 と 同じ よう に それ ぞ れ の 座標 を も っ て いま す 。 LOCATE 文 を 使っ て , 画面 上 の 横 X 文 
字 目 が 縦 Y 文 字 目 と いう ょ うに 座標 を 指定 する こと が で きま し た 。 ま っ た だ く 同 じ よ うに 縦横 の 
座標 を 指定 し て , 画面 上 の 希望 の 位置 に 点 を も 打つ こと が で きま す ( 図 4-1)。 試 し て み ま し ょ 


10 WIDTH ай 
208 SCREEN 9,0 
за CLS 4 r 
48 Хш160:Үтсій8 
50 PSET (Хх, Y? 

画面 の ほ ば 中 央 に 点 が 打 た だ れる は ず で す 。PSET と いう の が , 点 を 打つ 命令 で す 。 今度 は 色 も 
決め て み ま し ょ う 。50 行 を , 

PSET (X, Y, 4) 
と 変 を て みる と, 先ほど と 同じ 位置 に 緑色 の 点 が 打 た れ 
ます 。PSET は , 「 ポ イン ト セ ッ ト 」 の 略 で , ( ) の 中 は , 
X 座 標 , Y 座 標 , 色 コ ー ド と な っ て いま す ( 表 4-1)。 
10 行 は , 横 40 字 の モー ド を 指定 し て いま す 。20 行 の 
SCREEN 文 は , グ ラフ ィ ッ ク 画 面 の 表示 モー ド を 決め る も 
の で す 。 詳 し く は 後 で 述べ ます 。30 行 の CLS 文 は 今 まで 書 
か れ て いた 文字 や グラ フィ ックス を 消し て し まう 命令 で 
7» 

この 例 の よ うに CLS 文 の 後に 0 か ら 4 まで の オペ ラン ド (演算 数 ) を 指定 する こと が で きる の 
ст», この オペ ラン ド は SCREEN 文 と 関係 が 深い の で , 後 で SCREEN 文 と あわ せ て 説明 し まし ょ 


20 

40 行 で 横 と 縦 の 座標 を 指定 し, 50 行 で 点 (ドッ ト ) を 打っ て いま す 。 
今度 は この 点 を 消し て み ま し ょ う 。 ダ イレ クト モー ド で 

PRESET (160, 100, 4) 

と する と , 先ほど 打 た れ た ドッ ト が 消 る れ ま す 。 PRESET は , ポイ ント リセ ッ ト の 略 で , PSET E 
同じ よう に , Ж, 縦 , 色 の 順 で 指定 し ます 。 あ る 色 で PSET を 行なっ た ドッ ト は 同じ 色 で PRESET 
し まず す 。 

画面 が 細か い 点 の 集まり で 構成 きれ て いま すか ら , 線 を 表現 する に は 点 を 続け て 並 さ れ ば よ 
いわ け で す 。 FOR て T0 て NEXT を 使っ て , 座標 を 変化 きせ れ ば よい は ず で す 。 画面 の 中 央 に 左 か 
ら 右 に 線 が 引か れ て いき ます 。 
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[プロ グラ ム 4 -1〕 


„в итотнай 
20 SCREEN 0,8 

за CLS 4 

40 FOR X=0 ТО 319 
ша PSET (X, 100,7) 
вй NEXT X 


この よう に し て , ドッ ト を セッ ト す る こと に は より, 直線 や 曲線 も 表示 る せる こと が で きま す 。 
SIN や COS の 三角 関数 の グラ フ を 描く こと も で きま す 。 例 と し て SIN 曲 線 を 描く (プログ ラム を 見 


て み ま し ょ う 。 
〔 プ ログ ラム 4 - 2 〕 [画面 4- 1 


---- 


19 итотнав 

20 SCREEN 0,0 

за CLS 4 

40 FOR Х-й то 319 
50 PSET ОХ, 100,7) 
る 9 NEXT X 

78 FOR R=@ TO 360 я 
80 TH=RAD (R) х 
ой Y=SIN(TH) ж80+100 ` 
108 х-Бж.8 s z 
110 РЅЕТ ОХ, Y, 4) М. в. 
120 NEXT R Нед 


60 行 まで は 【〔 プ ログ ラム 4 - 1 〕 と まっ た だ たく 同じ で , 70 行 か ら サ イン カー ブ を 描く 部 分 で す 。 
角度 を 変数 R LT, 0 か ら 6360 ま で 変化 きせ て いま す 。BASIC で は 角度 は すべ て ラジ アン (radian) 
で 表現 し な けれ ば な り ま せん 。 ラ ジア ン と いう の は , 「 円 の 半径 に 等 し い 孤 に 対す る 中 心 角 の 大 
きる を 表わす 角度 の 単位 J の こと で , 度 単 位 の 数 式 を 155 倍 す る と ラジ アン 単位 に 変換 で きま 
す 。 こ の プロ グラ ム で は , 80 行 で RAD 関 数 を 使っ て いま す 。 RAD 関 数 で ラジ アン に 変換 し た 値 を 
変数 TH に 入れ て お きま す 。90 行 で は , ラジ アン 単位 に 変換 し た 角度 の サイ ン を 求め 、 これ を 
80 倍 し た うえ ぇ 100 を 足し て いま す 。 こ の サイ ン の 値 が 0 から 61 の 間 の 小さ いも の な の で 80 倍 し て 
いる わけ で す 。 こ の 補正 に より , 角度 0 の と き の Y の 値 は 100 と な り ま す 。 前 に 描い て お いた 横 
線 の Y 座 標 が 100 で すか ら , そ れ を 原点 と し た サイ ンカ ー ブ を 描く こと が で きま す ( 画 面 4 - 1 ) 。 
この よう な 数 値 の 補正 は , グラ フィ ックス を 扱う と き に , し ば し ば 行ない ます か ら , よく 理解 
し て お いて くだ さい 。 


ー88 一 й1й1й8118 ча 


2-2 ж. ,1 る 。 = 


⑧ 直線 を 描く , 長方形 を 描く 


点 を つなぐ こと に よっ て 直線 や 曲線 が 描け る こと が わか り ま し な た 。X 1 の BASIC に は , 線 を 
引い た り , 線 を つない で 枠 を 描く 便利 な 命令 が ある の で , 今度 は これ を 見 て み ま し ょ う 。 
【 プ ログ ラム 4-1〕 で 引い た の と 同じ 線 を 引く に は , 


LINE (O, 100) — (319, 100), PSE T, 


7 
| 
а 
を 


引き 始め の 座標 引き 終わ り の 座標 RET 


と し ます 。LINE 文 は 線 を 引 《 た め の 命令 で す 。 この 命令 の 後に は 2 つの カッ コ が 続き ます 。 前 
の カッ コ の 中 が 線 を 引き は じ め る 点 の 又 , Y の 座標 , 後 の カ ッ コ の 中 が 引き 終わ り の 座標 で す 。 
つま り , 2 つの 点 を 指定 する こと に よっ て を の 2 点 を 結ぶ 直線 を 描く (こと が で きる わけ で す 。 
PSET 文 で は 「 点 を 打っ て いく 状態 (モー ド ) で 」 と いう 意味 を 表わし ます 。 最 後に 書か れ た 7 t 
いう 数 字 は 白い 色 を 表わし ます 。【〔【 プ ログ ラム 4 - 1 〕 で は 3 行 に わた っ て いた 作業 が , た っ た 
1 っ の 命令 で すん で し まう の で すか ら , LINE 文 は 実に 便利 な 命令 た いえ ます 。 

LINE 文 は , 他 に も いろ いろ な 機能 を 持っ て いま す 。 ӘЖЕ, 画面 いっ ぱい の 枠 を LINE 文 を 使 
っ て 描い て み ま し ょ 2 う 。 

LINE (0, 0) 一 (319, 199), PSET, 7, B 

最後 の B は 「BOX」 の 略 で つま り 箱 の こと で す 。 B を つけ て お く と , 指定 し た 2 点 を 結ん だ 

線 を 対角線 と する 長方形 を 描く (こと が で きま す 。 


(014-2) 


ЕС 
е 。 «9% 


さら に , BF と する と , この 長方形 を 描い て その 内 側 を 塗り つぶ すこ と が で きま す 。 

LINE (140, 80) 一 (180, 120), PSET, 4, BF 
と する と , 画面 の 中 央 に , 緑色 の 正方 形 が 描 わ れ ま す 。 い ろ い ろ な 座標 を 指定 し て , どん な 位 
置 に どん な 線 が 描 わ れる か 試し て みて くだ さい 。 


人 @ 破 線 を 描く 


KU, ひと 続き の 実線 で は な 〈, 破線 や 鎖線 を 描 じ て み ま し ょ う 。 そ を その だめ に は , 色 コ ー ド 
57 81818111 -8?- 


まだ は B の 指定 の 後 で . さら に 線 の 種類 を 指定 し ます 。 線 の 種類 の 指定 は 16 進 数 で 行ない ます 。 

16 進 数 で の 指定 に より いろ いろ な 線 を 描く (こと が で きま す が , ここ で は 破線 と 1 点 鎖線 の 描き 

方 を 覚え て お いて くだ さい 。 湊 の 例 は , 7 つの 色 で それ ぞ れ 実線 , 破線 , 1 点 鎖線 を 描き ます 。 
【 プ ログ ラム 4 -3〕 


18 SCREZNB, 8:CLS3 

28 FOR I=0 то 7 

38 LINE (O; 1жВ) - (319, 1ж8) „РЗЕТ, I — 実線 
40 LINE (9, 1ж8+2) - (319, IX8+2), PSET, Is &HEFFC = 破線 
50 LINE CÛ, IX8+4)- (319, IXB+4), РЗЕТ, І, &HFFCC 鎖線 
る 9 NEXT 


破線 は &HFFFC, 1 点 鎖線 は &HFFCC と 指定 し ます 。 こ の よう な 16 進 数 で の 指定 セラ イン パタ 
ー ン と 呼び ます 。 ラ イン パタ ー ン を 省略 し た 場合 に は 実線 (つま り &HFFFF) が 描か われ る の は , 
これ まで の 例 で む わ か り の こと で し ょ o 

LINE 文 に は PSET と PRESET の 他 に も 5 1 つ XOR と いう モー ド が あり ます 。XOR は 排他 的 論理 和 
と いい , 前 に 勉強 し た 論理 和 の OR, 論理 積 の AND の 仲間 で す 。 こ れ ら の 仲間 を 論理 演算 子 と い 
いま す 。 X 1 の グラ フィ ックス で は , LINE 文 に XOR を 指定 し て 線 を 引く と, 前 に 表示 され て いた 
線 の 色 と , 新しい 線 の 色 と が 混ぜ 合わ る きれ ます 。 た と えば , 青 の 線 を 引い た うえ に XOR を 指定 し 
て 線 を 重ね れ ば , マゼンタ ( 赤 紫 ) に な り ま す 。XOR を 使う と, 画面 に 透明 感 を 表現 する こと も 
で きま す 。 

[プロ グラ ム 4 - 4〕 

ій NGD 了 すら ビ マ ニニ ペロ 。 Ë: C 55 

20 LINE (0, Е) - (с: йй, : ВО)  PSSET 1 
за LINE сй, В - (12, Ей), XIZ, 2, 
44 LINE СВ, й)-с; 2), 1882, XOR, S = 
この プロ グラ ム は , 光 の 3 原色 で ある , W, 赤 , 緑 で 中 が 塗り つぶ る れ た 長方形 を 重ね て 描 
き ,XOR で 色 が どの よう に 重ね られ る か を 見 て みよ うと いう も の で す 。 グ ラフ ィ ッ クス で 使う カ 
ラー の うち マゼンタ は 青 と 赤 , シア ン (Же) は 青 と 緑 , 黄色 は 赤 と 緑 を 組み 合わ せ て 作ら れ 
る こと が わか り ま す 。 また, 3 色 す べ て を 合わ せる と 円 に な る こと が わか り ま す 。 逆 に 言え ば , 
カラ ー コ ユー ド が 青 (1), Ж (2), ж (4) を 基準 に . マゼンタ (1+2=3), シア ン (1+ 
4-5), 黄色 (2 十 4) ニ 6 と いう 組み 合わ せ に よっ て 決ま っ て いる こと も わか り ま す 。 
LINE 文 は この よう に 多彩 な 機能 を 持っ て いま すか ら , いろ いろ な 使い 方 を 試し て みて 〈 く だ きる 


М. 

念 文 字 表 示 に 使え る ライ ン 文 

グラ フィ ックス で な く , 通常 の 文字 表示 に 対す る LINE 文 も あり ます 。 

. 実際 の 例 で 理解 し て いた だ く の が 最も わか りや すい と 思い ます の で , 次 の 例 を 実行 し て みて 
Так, 


10 WIDTH 48 ЗСНЕЕЧЯ, @:С1 54 
20 LINE (0, O) - (37,24), "ФФ", В 


-83- ата: тава се 


4 X1 お も し ろ グ ラフ ィ ッ クス 


命令 の 書き 方 は グラ フィ ックス の 場合 と 同 
じ で す が , カッ コ の 中 は , 点 の 座標 で は な く 
文字 表示 の 座標 に な り ま す 。80 字 モー ド で も 
40 字 モー ド で も それ ぞ れ 画面 いじ っ ぱい ま て 使 
うこ と が で きま すか ら ,40 字 モー ド の と き は , 
X 座 標 は 0 か ら 39, 80 字 モー ド の と き に は 0 
か ら 679 と な り ま す 。Y の 値 は どちら も , 0 か 
624 ま で で す 。 こ の 値 を は ずれ て も , 画面 の 
外 に は みだし て し まう だ け で エラ ー に な っ て 
し まう こと は あり ませ ん 。 その 後に は どの 文 
字 を 使っ て 線 を 引く 《 か 決め る た め に , 文字 を 
タダ プル クォーテーション で 囲ん で 書き ます 。 
また , グラ フィ ックス と 同様 に , B や BF も あ 
り ま す 。 タイトル 画面 を 書く とき な ど に 便利 
に 使え る で し ょ う 。 こ の 場合 に は , グラ フィ ックス の 場合 と 違い , COLOR 文 を 使っ て 色 の 指定 を 
別に 行なわ な けれ ば な ら な り ま せん 。 

COLOR 文 と いう の は , 画面 の 色 を 設定 する ステ ー ト メン ト で , 

[COLOR 表示 色 , 背景 色 | 
と 指定 し , 色 は 色 コ ー ド で 指定 し ます 。 XX 1 で は 電源 を 入れ た と き 自 動 的 に COLOR 7, 0 に セ 
ッ ト る れ て いま す 。 ダ イレ クト モー ド で , 

COLOR 1 
と 打ち こん で みて くだ さい 。 画面 に OK の 文字 が 青色 で 表示 る れ , これ か ら 打 ち 込 む 文字 は 青色 
に な り ま す 。 

COLOR 1,7 
と 入れ て み ま し ょ う 。 画 面 全体 が 白く な っ て , その 中 に 青い 文字 が 表示 る され て いま す 。 こ の よ 
う に 表示 の 色 と 背 景 の 色 を 自由 に 選択 で き る わけ で す 。COLOR1 や COLOR4 の よ 5 に 省略 し て や 
る と 背景 の 色 は 変化 し ませ ん 。 な お ぉ , 表示 色 は [ CTRL | キー と 表示 し た い 文 字 の 色 コ ー ド の 数 字 
を テン キー を 使っ て 同時 に 押す と , 文字 の 色 が 変わ り ま す 。 背景 の 色 は , [CTRL キー と メイ ン 
キー ボー ド の 数 字 を 同時 に 押せ ば 変わ り ま す 。 

直線 を 引く 作業 は コン ピュ ー タ ・ グ ラフ ィ ッ クス の 基本 中 の 基本 で す 。 П, こん な こと か 」 
と 思わ ず に , いろ いろ と 試し て みて くだ きい 。 
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4-3 わっ / m пали = 


OF を 描く 
いく ら 6 基本 と は いえ 線 や 枠 ば か り 描 いて も お も し ろく あり ませ ん 。 今度 は 円 を 描い て み ま し 


ょ う 。 

円 を 描く に は , 円 の 公式 を 使っ て 座標 上 の 点 を 1 つ ず っ 計算 し , PSET 文 に よっ て ドッ ト を 打 
っ て いく 方 法 と CIRCLE 文 を 使う 方 法 の 2 と な お り が あり ます 。 

CIRCLE と いう の は 輪 の こと で すか ら , CIRCLE 文 は を その 名 の と お り , 円 と 椿 円 を 描く た め の 専 
用 の 命令 で す 。 座標 を 計算 する 必要 も $ も なく 〈, た っ た 1 つの 命令 で 円 や 椿 円 を 描く こと が で き , 
し か も 描く 速度 も 早く で きま す 。 

CIRCLE 文 の 使い 方 は , 


CIRCLE (X, Y), R, С. 


半 経 


中 心 の 座標 


と な り ま す 。 と の (X。Y)。 R, C, n, s, e は パラ メー タ と 呼ば れる も の で す 。 たとえば, 
数 字 で 円 の 面積 は , S =zr? と いう ふう に 習い まし た 。 T が 半径 で ある こと は あな た の 記憶 の な 
か に 残っ て いま すか ら , TORRES I ETE Жж 

径 の 大 きる が わか る 円 な 6, どん な 円 の 面積 IE 
計算 が で きま す 。 こ の 公式 の r の よう に , R 
な っ た 値 を し る こと の で きる も の を パラ メー 
タ と いい ます 。 つ まり , プロ グラ ム 中 の パラ 
メー タ は , プロ グラ ミン グ の と き に は 決定 し 
て お かず に , 実行 時 に 選択 の 自由 を 残し て お 
くも の の こと を いい ます 。 上 の CIRCLE 文 の パ 
ラメ ー タ は 少々 複雑 に みえ ます が , 1219 
の 意味 を 覚え て お け ば , すぐ に 使い こなせ る 
よう に な り ま す 。 
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4 X1 お も し ろ グ ラフ ィ ッ クス 


X, Y は 描く 円 や 椿 円 の 中 心 の 座標 で す 。 た と えば WIDTH 40 (40 字 モー ド ) で 画面 の 中 央 に 
円 の 中 心 を 置き た けれ ば , X は 160, Y は 100 に な り ま す 。 

R は 円 の 半径 で す 。 画 面 内 に 収まる 最大 の 半径 は 99 に な り ま す 。C は 色 コ ー ド で , 何 色 で 描 
《 か を 決め ます 。C を 省略 する と CIRCLE 文 が 実行 きれ る 前 に 使わ れ て いた 指定 色 が ひき つが れ 
て 使わ れ ま す 。 LINE 文 や PSET 文 で t, 色 コ ー ド を 省略 する と それ まで 使わ れ て いた だ 色 が その ま 
まひ きつ が れ ま す 。 


⑧ 椿 円 を 描く 


檜 円 を 描く と き に は 扇 平 率 ん を 指定 し な けれ ば な り ま せん 。 正 円 を 描く と き に は ん ヵ ん を 省略 し 
ます 。 扇 平 率 は Y 方 向 の 半径 に 対す る 叉 方 向 の 半径 の 比率 (Y 方 向 の 半径 方 向 の 半径 ) で 
すか ら 椿 円 の 横 の 大 きる は 変わ ら ず , 縦 方 向 が 大 きく な っ た り 小 きく な っ た りす る こと に な り 
ます 。 


プロ グラ ム 4-5 
( ) (6 4-2) た まね ぎの 断面 
19 MIDTH49 :SCREEN9, 08:CLS4 
28 FOR h=.1 TO2 STEP。2 
за СІКСІЕ с16й, 100), 4й, 7, hy 0, 360 
49 МЕХТ А 


ここ は 変わ ら な い 


(094-3) 
180 © 
す 
る 

270 


E と S は , 円 を 描き は じ め る 角度 と 終わ り の 角度 で す 。E と S を 0, 360 と する と 円 に な り , 
途中 の 数 値 で 切っ て や る と, 弧 を 描く こと に な り ま す 。 

角度 は , 中 心から 右 の 方 向 が 0 ЖС, 左 回 り ( 時 計 の 針 と 反対 回 り ) に 360 度 で 円 に な り ま す 。 
省略 する と 0 か ら 360 に な り ま す 。 

CIRCLE 文 で パラ メー タ の 省略 を 行なう 場合 , 注意 し な く 《 く て は いけ な い の は , カラ ー だ け や 扇 
平 率 だ け の 省略 は びき な いと いう 点 で す 。 ど れ か を 省略 する よう な 場合 に は そこ か ら 後 も そっ 
くり 省略 びき る よう な 条件 で な いと エラ ー に な っ て し まい ます 。 

و = 919118911 58 


⑧ 円 の 公式 と 関数 の 定義 


Же, CIRCLE 文 を 使わ ず に , 円 を 描く 方 法 を 見 て み ま し ょ う 。 円 の 公式 か ら 円 同上 の 点 の 座 
標 を 計算 し , その ドッ ト を セッ ト す る こと に よっ て 円 を 描き ます 。 こ の 方 法 で は , 計算 が 必要 
な うえ に 同じ 図形 を 描く に も 少々 時 間 が か か り ま す が , た だ たとえ ば, 時 計 の 針 を 描こ うと する と 
き な ど は , この 計算 を 行なわ な けれ ば な り ま せん 。 この 方 法 を 覚え て むく と , きら に 複雑 な ト 


ロコ イド 曲線 な ど を 描く と き に も 応用 で きま す 。 
円 の 公式 を 展開 する と, 半径 の 円 周 上 で 角度 9 の と き の 座 標 は , メニ R・cos の , Y=R・sin@ 


で 計算 きれ ます 。 次 の 例 を 見 て くだ きい 。 
[プロ グラ ム 4 -6〕 (044-4) 


18 и107н4й: ЗСКЕЕ 2, 9:CLS4 
28 DEFFNX (1) =COS (RAD (122 x86 


за ОЕЕЕМУ (1) =SIN (RAD (1) жво А 
40 FOR I=0 ТО 3609 Ж X=R・CO0S2 
50 Х=ЕМХ (1) +160 Y=R・SIN2 


る 9 Y=FNY(1)+100 
70 РЅЕТ (X, Y。 4) 
80 NEXT I 


ここ で は , FOR て TO て NEXT 文 を 使っ て , 変数 の の 値 を 0 か ら 6360 ま で 変化 きせ な が ら , その と 
き の X 座 標 , Y 座 標 を 計算 し て 点 の 表示 を 行なっ て いま す 。 

20 行 と 30 行 で , 座標 の 計算 式 を DEF FN と いう 形 を 使っ て 定義 し て いま す 。BASIC に は , sin 
や cos な どの 関数 が あら か じ め 用 意 る きれ て いま す 。 プ ログ ラム 中 で 何 度 も 同じ 計算 を 行なう 場合 , 
DEF FN 文 を 使う と, その 計算 式 を 1 つの 関数 と し て 使う こと が で きる よう に な り ま す 。cos(XX) 
と する と 数 値 双 の コサイン が 求め られ る よう に , 複雑 な 計算 式 を DEF FN 文 を 使っ て 1 つの 関数 
と し て 定義 し て お く 〈 と , 簡単 に 計算 の 結果 を 求め る こと が で きる と いう わけ で す 。DEF FN の 使 
い 方 を 具体 的 に 見 て み ま し ょ う 。 

2 
| ў 
DEF FN A (X, Y, の = (X, Y, 2/3 

後に は 関数 名 を つけ て お き , カッ コ の 中 に は 定義 する 式 で 使わ れる 変数 を カン マ で 区 切っ て 
入れ て お きま す 。 定義 し た 計算 式 が 実際 に 使わ れる ときには, この 変数 が 数 値 に 置き か わっ て 
計算 きれ る わけ で す 。「 三 の 右側 に は 計算 式 を 書き ます 。 DEF FN で 関数 を 定義 で きる の は 一 度 
だ け で , 定義 し 直す こと は で きま せん 。 定義 し て お いた 関数 を 呼び 出し て 使う に は , FNX (n) の 
よう に すれ ば , COS (n) や RAD (n) と まっ た く 〈 く 同じ に 使用 する こと が で きま す 。 

ここ で は , FOR て T0 て NEXT に よっ て 変化 し て い 〈 I の 値 を ラジ アン に 変換 し た も の を 与え て , 
円 周 上 の 座標 を 求め て いま す 。 後 の 160 と 100 は 画面 の 中 央 に 中 心 を 移動 きせ る た め の 補 正 値 で 
す 。 こ の よう に 補正 を 行なう こと を , ある 数 値 だ け 数 を 増やし て や る こと か ら 「 ゲ タ を は か せ 
る 」 と いう こと も あり ます 。 グラフィック て で 画面 の 中 央 を 基準 と し た い 場 合 , 補正 値 は 40 字 モ 
ー ド で は X ニ 160, Ү-100, 80 字 モー ド で は X=320, Y=100 で す ( 図 4-5)。 

из, 【 プ ログ ラム 4-6〕 を WIDTH 80 に 直し て 描く と 縦 に 長い 椿 円 が 描 わ れる こと に な っ て 
し まい ます 。 こ れ は ドッ ト の 並び 方 の 縦 と 横 の 比率 が 変わ っ て し まう だ めで, 円 を 描く た め に 
в, 叉 方 向 の 半径 を 2 倍 に し て お け ば うま くい きま す 。20 行 の 「*80」 を 「*※160」 に すれ ば よ 


= 8181118388 ас 


4 X1 お も し ろ グ ラフ ィ ッ クス 


いわ け で す 。 
(44-5) 
( 04-6] 
N 中 心 が 0.0 азына 
#152 


な の で は 
画面 外 に な る 


この 点 の 
座標 が 知 
り た い 


この よう に 計算 式 に よっ て 座標 を 求め る 方 法 を 使う と, どん な 複雑 な 曲線 で も その 曲線 の 方 
程 式 が わか っ て いれ ば 描く こと が で きま す 。 ユー ザー 定義 関数 の 書き か を だ け で その まま 利用 
で きま す の で , 例 の アプ ログラム を 頭 に 入れ て お 〈 と 役に立ち ます 。 た だ し , CIRCLE 文 で 描か れ 
た 円 と 違い , 半径 が 大 きい と 点 と 点 の 間 が 離れ て し まい ます 。 後 で 説明 する PAINT 文 で 円 を 塗り 
つぶ し た りす る 場合 に は 不都合 が 生じ ます の で , うま 使い わけ る こと が 必要 で す 。 計 算式 を 
使う 方 法 は 、 た と えば 時 計 の 針 の よう に 円 の 中 心から 円 周 上 の 1 点 に 線 を 引く と き な ど に 必要 
と な り ま す 。CIRCLE 文 を 使っ て 円 を 描く と 左 回 り に 描 わ れ ま し た が , この 計算 式 に よる 方 法 を 
使う と 右 回 り に 描か われ ます 。 


SD 8181118381 ー ダ ミー 


да FETE m= 


@POLY CO «С? 


多角 形 を 描く 命令 が POLY で す 。 これ まで 長方形 や 正方 形 を 描く LINE 文 と 円 を 描く CIRCLE 文 を 
見 て きま し た 。 そ れ 以 外 の 多角 形 を 描く た め に POLY 文 が 用 意 き され て いま す 。POLY 文 の 書き 方 は , 


(04-7) 


で す 。 
CIRCLE 文 と 同じ よう に 中 心 の 座標 , 半径 。 色 コ ー ド の 順に 指定 し ます 。 半径 と いう の は , 中 
心から 頂点 まで の 距離 で す ( 図 4 -7 )。P は ステ ッ プ 角 で , 言い か えれ ば その 多角 形 の 1 つの 


外角 と 考え れ ば よい で すか ら ,n 角 形 な ら ざ 度 と 指定 すれ ば よい わけ で す ( 図 4-8)。SEe 
は CIRCLE と 同じ く , 描き は じ め と 終わ り を 指定 し ます 。 各 パラ メー タ の 省略 の 仕方 も CIRCLE 文 
と 同じ で す が , ステ ッ プ 角 P を 省略 する と 1 が 入り , 円 が 描か われ ま す 。 


まず , 正三 角形 を 描い て み ま し ょ 5. 


( 4-8) (81814-3) 


120" 


3 5Бсятема, й:г 54 
POLYT (150, 50), 4, 4, 120, 0, ЗЕЙ 
РОСУстай, 150), 40, 5, 120. 90,450 لا‎ } 
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4 X1 お も し ろ グ ラフ ィ ッ クス 


中 心 の 座標 を (160, 50) と し ます 。 半 径 , つま り 項 点 ま で の 距離 を 40 と し まし ょ う 。 ス テッ 
プ 角 は 360 エ 3 で すか ら , 120 に な り ま す 。 色 コー ド は 白 で すか ら 6 7, そし て 0 上 度 か ら 360 度 まで 
と し て 実行 する と , 画面 4-3 の よう に 頂点 が 右 を 向い た 正三 角形 に な り ま す 。 こ れ を , 頂点 を 
上 に 向け る た め に は , 開始 角 を 90 度 に し ます 。 終 了 角 は ここ か ら 360 度 の 位置 で すか ら 450 度 と 
な り ま す 。 今度 は うま く 上 を 向い た 正三 角形 が 描け まし た 。 


(44-9) (04 4-10) (ËJ 4-11) 
ステ ッ プ 角 
120 度 120° 
u ② こ こ は 36 度 
開始 
0 度 
ү も っ と 大 きく する と 
終了 角 
360 度 
ЖЖ | O39029 
と な っ て し まう 21 
も っ と 描い て いく と 
кс 
144 
これ を いつ か 
合う か も 
し れ な い 
É, 
90 度 ここ か ら 描 き 始 め 
こう する に は = 
45 度 か ら ス ター ト 
すれ ば よい 


ステ ッ プ 角 は 144 度 


POLY(160, 100), 80, 7, 144,90,810 


== са 5 回 て 720 度 


終了 角 は 90 度 十 720 度 三 810 度 


$F 91011111 E i 


正四 角形 (正方形) で は どう で し ょ うか 。 開始 角 を 0 度 と する と や は り 斜 め に 描か れ て し ま 
いま す 。 最 初 の 頂点 の 位置 を 45 度 動か し て 開始 角 を 45 度 , 終了 角 は 360 度 を 足し た 405 度 と 指定 
する と , 正方 形 が 描か われ ます ( 図 4- 9 )。 

開始 角 と 終了 角 の 差 が 360 度 より も 大 きく な る 場合 も あり ます 。 それ は , ステ ッ プ 角 が 120 度 
以上 の 場合 で す 。 ステ ッ プ 角 120 度 で 正三 角形 が 描 わ れる わけ で すか ら , これ より ステ ッ プ 角 を 
大 きく する と, 正 多 角形 は 描け りな く な り ま す ( 図 4 -10)。 終 了 角 を 増やし て 描き 続け る と 線 の 
描き は じ め の 点 と 描き 終わ り が 少し ずつ っ 近づい て きま す 。 一筆 書き の 星 を 思い 出し て みる と, 
5 回 折り 曲げ た と ころ で 星 が 描 き 終わ り ま す 。 図 4 -11 に よっ て 考え て みる と , 星 形 の ステ ッ プ 
角 は 144 度 に な っ て いま す 。 そし て 折り 曲げ 回 数 が 5 回 で すか ら , 開始 角 か ら 144 度 X 5 = 720 Е 
動か の せ ば よる そう で す 。 

これ で うま く 星 が 描 り た はず で す 。 半径 や 色 を 変え て , いろ いろ 試し て みて くだ さい 。 

Жы, ステ ッ プ 角 を 0 度 と する と , 中 心から 開始 角 の 頂点 の 座標 まで の 直線 , つま り 半 径 を 
描き ます 。 

最後 に 多角 形 の ステ ッ プ 角 と 描き は じ め と 終わ り を 一 覧 表 に し まし た の で , 参考 に し て くだ 


表 4-2 | Ht 
始め 一 終わ り 


0 ~360 度 
90~450 度 


45 一 405 度 


90 一 450 度 


0 一 360 度 
30 一 390 度 


90 一 810 度 


-Ф%- 81188000800 «а 
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ФЕ, いろ いろ (1) 


これ まで , 何 げ な く グ ラフ ィ ッ クス の 命令 の 中 で 色 を 使っ て きま し た 。 こ こ で 一 度 き ちん と 
覚え て お きま し ょ う 。 こ れ ま で 一 般 的 な 呼び 方 に な ら っ て 「 色 コー ド 」 と 呼ん で どき まし た が , 
X1 で は 正確 に は 「 フ パレ ッ ト (PALET) コー ド 」 と 呼び ます 。 色 コー ド は 表 の よう に 決め られ 
て いて 変化 する こと は あり ませ ん 。 

パレ ッ ト と いう の は , 絵具 を 混ぜ 合わ せ た り 薄め た だ たり する の に 使う , あの パレ ッ ト と 同じ で 
す 。 今 ま で 使っ て きた だ X 1 の パレ ッ ト に は , 色 コ ー ド と 同じ 絵具 が そっ くり 入っ て いま し た 。 双 
1 の パレ ッ ト に は その 区 切り ご と に 番号 が つい て お なり, これ を パレ ッ ト コ ユー ド と 呼び ます 。 こ 
れ ま で は 色 コ ー ド と パレ ッ ト コ ー ド が 一 致し て いま し た 。 とき に よっ て は , この パレ ッ ト に の 
せる 人 色 を 変え て し まう こと も で きま す 。 た と えば , 

PALET 2,4 
と する と, レット の 2 番目 の と ころ に 緑 ( 色 コ ー 
ド で は 4) が セッ ト る れ ま す 。 こ うな っ て いる と , 
РЕЖ. 

PSET (X, Y, 2) 

と し て も , 赤 で は な く 〈 緑 の ドッ ト が 画面 に 描か れ 
ます 。。X 1 の グラ フィ ックス で は , LINE 文 に XOR 

そし て , PALET 文 で セ モット す る 色 を 指定 し 直す と , 
パレ ッ ト の 中 だ け で な く , すでに 描か れ た 部 分 の 色 も 変化 し て し まい ます 。 こ れ を うま 
‹ 利用 する と , いろ いろ お も し ろ い 効果 が 得 ら れ ま す 。 

アプ リケーション テー プ の 中 は , ユマ が 回 転 す る よう に 見 える プロ グラ ム が あり まし た 。PALET 
文 で 色 を 変化 きせ て コマ が 回 転 す る よう に 見 せ て いる の で す 。 

次 の ゲ プログラム は これ と 似 た だ 効果 を ね ら っ た も の で す 。 

〔 プ ログ ラム 4 - 7 〕 


18 MIDTH49ISCREENG。 8:ІМІТ:СІ 54 

20 FOR I=@ TO 180 

38 CIRCLE CI 1080), I, (1/19) MOD7F+1, 1, 0, 360 
40 NEXT , 

58 FOR Ісі ТО 100 

óð FOR J=1 TO 7 

Рё PALET( エ +J) MOS FES 

88 МЕХТ:МЕХТ 


51 B11808881 -??- 


CIRCLE 文 で 円 を 10 個 描く ご と に 色 を 変え ます 。 そして, 50 (44-12) 
行か ら の 部 分 で パレ ッ ト を 切り か を て お も し ろ い 効果 を 見 せ 回 回 回 回 回 回 加 
て いま す 。 

この 中 の 2 カ所 で 使わ れ て いる MOD と いう の は , 割り 算 を Т, 

し た と き の 余り を 求め る 演算 子 で す 。 演 算 子 と いう の は , +, 一 , 

*, ノ な どの よう な 計算 の 内 容 を 表現 する 記号 で す 。 СОРТ Те) 
30 行 で は , MOD に よっ て 円 を 10 回 描く ご と に 色 (パレ ッ ト 
ュー ド ) を 変え る 操作 を 行なっ て いま す 。 I の 値 を いろ いろ 
変え て 試し て みる と, この 部 分 の 働き が わか る と 思い ます 。 J} 
70 行 で は , パレ ッ ト に の せる 色 の 順番 は を その まま に し て お い г: реза] Bi 
с, 1 つ ず つ パ レッ ト の 番号 を ずら し て いま す ( 図 4-12)。 

これ に よっ て 流れ る よう な 人 色 の 変化 を 表現 し て いる の で す 。 
10 行 の INIT は , 画面 の 初期 化 の た め に 入れ て あり ます 。 これ で , 前 に 入っ て いた プロ グラ ム の 影 
響 あ うけ る こと な 〈 く 新しい プロ グラ ム が 実行 きれ る わけ で す 。 

パレ ッ ト 文 に よっ て 変化 する の は , LINE, CIRCLE, PSET な どの グラ フィ ッ ク 命 令 で 描か われ た 


線 や 点 だ け で , キー ボー ド か ら 打 ち 込 む 文字 や 記号 (テキ スト と いい ます ) に は な ん の 影響 も 
与え ませ ん 。 


Фе... >..>(2) 


X 1 で は , 黒 を 含め て 8 色 の 色 を 使う こと が で きま す 。 グ ラフ ィ ッ クス の いろ いろ な 命令 を 学 
びな が ら 6 これら 8 色 の 色 を 使っ て み ま し だ た 。 こ こ で , も う 1 つ 新しい グラ フィ ックス の 処理 を 
見 て み ま し ょ う 。 

た と えば , 青 で 中 を 塗り つぶ し た 四角 形 を 描く に は , 

LINE (0, 0) 一 (80, 80), PSET, І, BF 
と すれ ば よかっ だ た わけ で す が , これ を 四角 形 の 枠 の 色 と そ の 内 側 の 色 と を 別々 の 色 で 塗り 分 け 
る こと も で きま す 。 (04 4 -13) 
CLS 4 0.0 は 枠 が 
描か れ て いる 
と し て 画面 を 消し て か ら , まず 枠 を 描き ます 。 
LINE (0, 0) 一 (80, 80), PSET, 7, B 
で 白 枠 が 描 わ れ ま す 。 こ の 中 を , 赤 で 塗る よう に する と , 
PAINT (1, 1), 2, 7 
と し ます 。 PAINT 文 は , 線 に よっ て 閉じ た 図形 の 中 を 塗り 
つぶ す 命 令 ( 図 4 -13) で 


1,1 か ら 塗 り 始め る 


fr 
№ 
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と 書き ます 。(X, Y) は 色 を 塗り は じ め る 座標 で す 。 この 例 で は , (X, Y) を (1, 1) と し て 
いま す 。 座標 (0, 0) に は 枠 が 描か れ て いる だ た だめ, その 1 つ 内 側 の 点 を 指定 し て いる と いう 
わけ で す 。F は 塗り つぶ す 色 , С, C。…… は 境界 の 色 で す 。 

ここ で の 例 を 見 て みる と, 色 コ ー ド 2 の 色 (Ж) で 色 コ ー ド 7 の 色 (H) の 境界 まで 塗り つ 
ぶし ます 。 境 界 の 色 は ,PAINT 文 で 塗 ろ うと する 色 と 境 界 色 が 同じ な ら 省 略し て も か まい ませ ん 。 
また , 境界 色 が 複数 の 場合 は , その 数 だ け 書 いて お か な けれ ば な り ま せん 。 


〔 プ ログ ラム 4-8〕 の 場合 , まず 四角 形 を 描き , ちょ うど 半分 重なっ た 位置 で 円 を 描き ます 。 
を し て 40 行 で , 図 4 -14 の ① の 部 分 を 青く 塗り つぶ し ます 。 四角 形 の 枠 は 青 で すか ら , 枠 内 に 入 
りこ ん で いる 円 の 自 を 境界 色 ほ し て 置い て いま す 。 こ の ① の 部 分 の 境界 色 は , 青 と 白 の 2 つの 
色 が ある わけ で す が , 青 の 方 は 塗る 色 と 同 じ で すか ら 省 略し て いま す 。 40 行 の PAINT 文 で 指定 し 
て いる の は , 塗り つぶ す 青 の 色 コ ー ド と , 境界 色 の 色 コ ー ド の 2 つ だ で け な の で す 。② の 部 分 も 
同じ で す 。③ の 部 分 は , 塗 ろ うと する 色 が マゼンタ な の に 対し て 境界 色 は 青 と 白 の 2 色 で すか 
5, この 両方 を 境界 色 ほ し て 指定 し な けれ ば な り ま せん 。 (0814-14) 


〔 プ ログ ラム 4 一 8] ж 


ЖА 


1# WIOTH406:SCREENG, Ө:ІМІТ:СІ 54 
20 LINE (8, 0) - 1580, 1929), PSET, 1, Б 
за CIRCLE 168, 1082,80, 7, 1 

40 PAINT (1, 1), 1,7 

Sü PAINT(161,188),2, ls, 7 

60 PAINT (IS7, 1080), 3, 7, 2 


塗り は じ め の 点 の 位置 の 指定 は , LINE 文 で 枠 を 描い た 
場合 は 描き は じ め の XX 座標 , Y 座 標 の 値 に 。 それ ぞ れ 1 
を 加え た 座標 点 と し , CIRCLE や POLY で 円 や 多角 形 を 描い た と き は 中 心 に する と 間違い が あり ま 


で 


せん (44-15). I【 図 4 -15) 
PAINT 文 で 色 の 塗り つぶ し を 行なう 場合 . つ ぶ そ う ш ыы 


と する 枠 が わずか 1 ドッ ト で も 欠け て いる と , その 

部 分 か ら 外 に に じみ 出し て し まい ます 。 
[プロ グラ ム 4-9〕 

18 WIDTH40:SCREENG, 0: INIT:CLS4 


28 LINE сй.й) - св, 80), РЗЕТ, 1, Е 
зе LINE (49,4092 - (100,40), РЗЕТ, 2 


4й PAINTI, 12 3, 1 РАМТ(Хв+ 1, Ув+ 1) 
この 場合 , 青 で 描い た 枠 を 30 行 で 描い た 線 が 横 切 

っ て いる だ た だ ため, その 部 分 が 途切れ て し まっ て そこ か ら 色 が に じみ 出し て し まい ます 。 こ うな っ 

た 場合 , [SHIFT] 十 [BREAK | で 止め な い 限 り 画面 いっ ぱい を 塗り つぶ すま で プロ グラ ム は 止ま り 


ёз я: тайй1 1 ーー 


まぜ ん 。 


PAINT 文 で 黒 ( 0 ) を 使う 場合 は , その 部 分 が すでに 0 以外 の 色 で 塗ら 6 られ て いな く て は な り ま 
せん (ブロ グラ ム 4 -10)。 


〔 プ ログ ラム 4-10) 


16 WIDTH40:SCREENO, ё: ІМІТ:С 54 
20 LINE са, 0) - сза, за), РБЕТ, 1. Ë 
за Ра! МТ (1, 1255, 1 

40 LINE (20,20) - <5й, 40), PSET, 8, Š 
sü РАІМТ(21,210,8 


また , 一 度 色 コ ュー ド 0 以外 の 色 で 描い た 枠 を も う 一 度 色 ュー ド 0 で 描き 直し て お け ば , 色 コ 
ー ド 0 を 境界 色 ほ し て 指定 する こと も で きま す (プロ グラ ム 4-11), 


〔 プ ログ ラム 4-11) 
і8 мтотнай: ЗСВЕЕ МА, Ө:ІМІТ:СІ 54 
20 LINK (0,0) - <за, 80), РЗЕТ, 1, Е 
25 PAINT tl 1,2,1 
Зӣ LINE(0,0)- св, ва), PSET, B, B 
&@ PREKTK1。 127, 3, 8 


た だ し , 枠 だ け を 色 コ ー ド 0 で 描き 直し て も だ めで , 色 ュ コー ド 0 の 枠 の 内 側 に は 必ず 黒 以外 
の 色 が 塗ら れ て いな けれ ば な り ま せん 。 


⑱@ エ ラー が 出 た ぞ / (Illegal function call) 


CIRCLE や POLY な どの 命令 に は , パラ メー タ が だ た くき さん つい て お り , 覚え る まで が 大 変 と う で 
す 。 こ れ ら の パラ メー タ に は , 使用 範囲 に 限界 の ある も の が あり ます 。 を その 範囲 外 の 数 値 を 指 
定 す る と ,「Illegal function call」t い う エ ラー メッ セー ジ が で ます 。 パラ メー タ の 多い 命令 の 
場合 , 並べる 順序 を 間違え た り , 途中 で 抜か し た りす る こと で も , この メッ セー ジ に お 目 に か 
か る こと に な り ま す 。 た と え ば , CIRCLE 文 で , 


CIRCLE (1OO, SO), 4O, 4, 


| 半径 40 | 
中 心 (X =100, Y =50) 


と する と ころ を 。, 
CIRCLE (100, 50), 4, 40 …… 

と する と この メッ セー ジ が 表 わ れ ます 。 こ の 場合 , 半径 は 4 で も か まわ な い の で す が , 色 指 定 
の と ころ で 40 が エラ ー と な っ て いる わけ で す 。 

この 他 に も た と えば , LOCATE 文 の エラ ー も あり ます 。WIDTH 40 の と き , 画面 の 一 番 下 の 行 の 
一 番 右 側 の 端 に 表示 きせ よう と し て , LOCATE 40, 25 と 指定 し て も エラ ー が で ます 。0 行 目 と 
0 文字 目 が 含ま れ て いる の で , 実際 に は この 座標 は 39, 24 な の で す 。 

また , CONSOLE 文 で スク ロー ル 範 囲 を 指定 し て いる 場合 , LOCATE 文 を 使っ て スク ロー ル 範 囲 
外 に 表示 きせ よう と し て , エラ ー を 起こ すこ と も し ば し ば ある よう で す 。 

CIRCLE 文 な ほぼ の パラ メー タ の 多い 命令 の パラ メー タ は 重要 な も の か ら 順 に 並ん を で いま すか ら , 
-1ай-- а: таатеа 44 
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よく 注意 し て 使え を ば び , この エラ ー を 起こ すこ と も な く な り ま す 。「 習 う よ り 人 慣れ ろ 」 で すね 。 


55 01100101 ーー ミキ ーー 


46 Х1 の グラ フィ ックス , 
こん な ここ と も で きる 


ФЕ 58125 


「 い っ し ょ うけ ん めい 描い た 図形 を も う 少 し 大 きく し た い 」, ある い は 「 複 雑 な 図形 の 一 部 分 
を 拡大 し て 詳し 〈 見 た い 」 一 一 この よう な と き に X 1 では, WINDOW と いう 命令 を 使い ます 。 グ 
ラフ ィ ッ クス 画面 の 表示 の 範囲 を 変化 させ , 希望 の 図形 が 得 ら れ ま す 。 

X1 の グラ フィ ックス 座標 は , 双方 向 が 0 か ら 319 (80 字 モー ド の 場合 は 639), Y 方 向 が 0 か 
ら 199 ま で で ある こと は 既に 説明 し まし た 。 この 座標 を 絶対 座標 と 呼び ます 。 ディ スプ レイ テレ 
ビ の 画面 の サイ ズ に 収まっ て いる 範囲 の 座標 の こと で す 。 

これ に 対し , グ ラフ ィ ッ クス の 命令 に よっ て いろ いろ な も の を 描く こと が で きる 範囲 は , +1. 
7X1038 四 方 の 広大 な 広 さ を 持っ て いま す 。 こ ちら の 座標 を 論理 座標 と 呼び ます 。 普通 は , この 
絶対 座標 と 論理 座標 の 座標 位置 は 一 致し て いま す ( 図 4 -16)。 


СЕ 4 -16〕 


実際 に 画面 で 
j A 5 REE 


= 54 1058 


—1.7X 1038 


319,199 
(639,199) 


1 .7X1098 
グラ フィ ッ ク て 描き 込む 
事 の で きる 広 さ 


絶対 座標 で 表わさ る れる 画面 は , この 広大 な 論理 座標 を 見 る た め の 「 窓 」 と 考え る こと が で き 
23. 

「 窓 」 を 移動 きせ る と 論理 座標 上 の 希望 の 部 分 を の ぞ く こ と が で きま す 。 し か も , TORO 
中 に 映る 範囲 を 変化 させ る こと も で きま す 。 

これ まで LINE や CIRCLE な どの グラ フィ ックス 関係 の 命令 で 指定 し て いた の は , 実は すべ て こ 
の 論理 座標 上 の 座標 点 で あっ た の で す 。 次 の 例 の プロ グラ ム を 走ら せ て み ま し ょ 2 う 。 

1# WIOTH46G: ЗСЕЕЕМА, GI IMITILCLS 


Эй PODLY (0312. 122 2080.5, 144,90,216 


а 


8116808118 حع ق بے 


гы. 
о. 
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POLY 命 令 で 描か れる 星 形 の 中 心 は .。 ディ スプ レイ テレ ビ の 画面 (絶対 座標 ) で は 右 下 の すみ 
に な り ま す 。 当然 の こと な が ら デ ィ ス プレ イ テ レ ビ の 画面 に 表示 る れる の は 星 形 の 左上 の 4 分 
の 1 の 部 分 だ け に な り ま す 。 を そこ で WINDOW 文 に よっ て , 絶対 座標 内 , つま り デ ィ ス プレ イ テ ン 
ビ の 画面 内 に 表示 る れる 論理 座標 の 範囲 を 広げ て や り ま す ( 図 4 -17)。 

15 MWINODA CQ. FB? - (168, 10G), (Ё, 4) =“ (39, 3997) 

「 窓 」 に 映る 範囲 が 変化 し ます か ら 星 形 の 全体 を 見 る こと が で きる よう に な り ま す 。 絶対 座標 
の 4 倍 の 広 さ の 範囲 に 描か われ た 星 形 の 全体 を 表示 させ て いる わけ で す ( 図 4 -18)。 


(04 4-17) (5414-18) 


WINDOW(0.0) — (319,199), (0,0)— (639,399) 
と ずる と 


639.399 


きら に , 論理 座標 を 映す 「 窓 」 の 大 きる を , 絶対 座標 全 
体 (ディ スプ レイ テレ ビ の 画面 ) で は な く , その 一 部 分 に 
する こと も で きま す 。15 行 を 次 の よう に 変え て み ま し ょ う 。 
15 WINOON CO. 8) - 517,177), се, й) - (539,577) 

「 窓 」 も 小さ くし た の で , 画面 左上 の 部 分 に 星 形 が 描 わ れ ま す 。 この 場合 は , 縦横 を れ ぞ れ 4 
分 の 1, 面積 で 16 分 の 1 に な っ た こと に な り ま す ( 図 4-19)。 


【 図 4 -19) (04 4-20) 


éT 8110808111 -1а3-- 


WINDOW (Xs, Ys) = (Хе, Ye), (Ха, Y) — (Xz, Y2) 


終わ り の 絶対 座標 i 
終わ り の 論理 座標 


始ま り の 絶対 座標 始ま り の 論理 座標 


上 記 が 一 般 的 な 書き 方 で す 。 Xo Ys, Ke, Y。 は 絶対 座標 で , 画面 モー ド に よる 最大 値 を 越え 
K b (Х.>319 (639), Ү.>199), 負 の 値 を 使う と エラ ー に な り ま す 。 ま た , WINDOW 文 に よっ 
て 切り か え を 行なっ て も , 既に 描 わ れ て いた も の が その まま 拡大 , 縮小 され る わけ で は な く , 
再度 書き 込み が 行なわ れ だ た と き に , 指定 され た 状態 で 表示 され る こと に な り ま す 。 

次 の 〔 プ ログ ラム 4-12) は 家 の 形 を 描き , 希望 に よっ て 拡大 , 縮小 を 行なう も の で す 。 

【〔【 プ ログ ラム 4-12) 


18 и10тн4 9: ЗСКЕЕМВ, 9:CLS4 

28 WINDOW:GOSUB "HOUSE":GOSUB "FLAME" 

за LOCATE0, 23:COLOR7 : PRINT" カ クタ "イー --- 1 ジュ ジョ ョ 2 === る "% 

40 REPEATI プ も =INKEY も て (15)iUNTIL Z$="1" OR Z$="2" 

50 IF 2%="1" GOSUB "ж2" ELSE GOSUB"/2" 

る 9 5СКЕЕМ0, 8: СОТОЗЯ 

70 LABEL "x2" 

88 LOCATEQ, 23:PRINTCHRS (5) :ОСАТЕЙ, 23:PRINT"SELEST 1 - 4"; 

90 REPEAT:AS$=INKEY$%$(1):LINTIL 2%>"60" AND 25<"5" 

100 5СКЕЕМІ.1:С154:0М VAL (A$) GUSUB 146, 150, 160, 170:GOSUB "HOUSE 
110 LOCATE, Ə8: PRINT"Hit Апу KEY" 

120 КЕРЕАТ: ХФ=  МКЕУФ Е UNTIL ХФ»"" 

139 RETURN 

140 иимбон са, й) - (317, 197), са, й) - (168, 100) RETURN 

150 WINDOW (0, 0) - (319, 199), (1689, 0) - (317, 100) RETURN 

160 WINDOW<G, й) - (319, 199), (ü, : #0) - (168, 199) : RETURN 

170 WINDOW <O, й) - (319, 199), (150,100) - (319, 199) RETURN 

180 LABEL"/2" 

190 госатеа, 23: PRINTCHR%*$ (5) : ОСАТЕЙ, 23: РЕ1УТ"пР“ > 2 AF ? 2 - é " 


200 REPEAT:A*=INKEY# C1) UNTIL VAL «ав? >1 AND VAL (ASIST 

218 N=VAL (A$) 

220 5СКЕЕМ1,1:С0154:МІМ0О0м(08.0)2-5319/М,199/М2, (Ü, Й) - (312, 199) GOS 
UB "HOUSE" 

230 госатей, 20:PRINT"Hit Any KEY" 

240 REPEAT: Х®= ІМХЕҮФ:ШМТІО XS る > 

250 RETURN 

260 END 

270 LABEL "HOUSE" 

280 LINE (100, 70) - 220, 170), РБЕТ, 4, ВЕ 

290 COLOR2:LINE (128, 44) - (200,20) - (246, 90) - (30, 90) -с12й, 4й) 
300 РАІМТ (125, 45), НЕХСНЕЪ ("ВЕТ 1 1ВЕЕ 44 ">, 2 

310 PAINT 195, 45), НЕХСНЕ С" ИСР І: ВЕРА"), 2 

320 LINE (120,110) - с; 7й, 140), PSET, 7,8 

330 LINE 121,111) - (167, 1392, РЗЕТ, Я, BF 

340 LINE (128, 125) - (170, 125), РБЕТ, 7 

350 LINE (145, 118) - (145, 140), PSET, 7 

360 LINE (188, 119) - (21й, 178), PSET, 1, ВЕ 

378 LINE (130, 29) - (154, 0), РЗЕТ, 5, ВЕ:СО 067 

389 RETURN 

390 LABEL "FLAME." 

400 LINE (80, 0) (319, 174), РЗЕТ, 5,8 

410 LINE (160, й) - (150, 176), PSET, 5:1 ІМЕ(0, 100) - (317, 180), РЗЕТ, 5 
420 (ОСАТЕӨ, 1: РЕТМТ"1":! ОСАТЕ2Й, 1: РЕТМТ"2": ОСАТЕЙ, 13: РЕТМТ"З": 
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OCATE20, 13:PRINT"4" 
430 RETURN 


家 の 形 は , サブ ルー チン "HOUSE" で 描い て お り , 絶対 座標 の 中 央 に 描け る よう , パラ メー タ 
が 決め て あり ます 。 

この 画面 を 縦横 4 つの 部 分 に 割り , 拡大 し よう と 希望 する 部 分 を 絶対 座標 いっ ぱい に 表示 し 
ます 。 こ の 指定 を 行なう の が , 140 一 170 行 の 部 分 で す (ここ で は , 論理 座標 の と の 部 分 で 表示 
する か を 指定 し て いま す )。 実際 の 画面 の 状態 と 見 比べ て , どの よう に 指定 し て いる か 考え て 


だ きい 。 

縮小 を 行なう サ プ ル ー チ ン で は , 今度 は 絶対 座標 の 表示 範囲 の 方 ( 図 4-21) 
を 変化 きせ て いま す 。 こ の よう な 縮小 を 行なっ た 場合 , ドッ ト の 間 карр 
隔 が 圧縮 きれ る だ た め , PAINT 文 が うま く 働 か な い 場合 が あり ます 。 通 の 場合 , 


と する 事 が 

こと が 多い の で す が ,WINDOW 文 を 使っ て 縮小 し て 表示 する よう な 場 多い 
A, 塗り は じ め の 位置 を 枠 内 の 中 心 に 置く 方 が よい で し ょ 5, 

また , 拡大 を 行なう 場合 , 塗り は じ め の 位置 が 絶対 座標 外 。 つま 
り 画 面 の 外 に ある と ペイ ント る れ な く な り ま すか ら , 30017, 31017 
の よう に 2 カ所 指定 し て お く と よい で し ょ う 。 

この プロ グラ ム で は , 次 に 研究 する 「 時 計 」 の プロ グラ ム と 同じ 
よう に , スク リー ン の 0 と 1 を 使い わけ , 0 の 方 に 元 の 絵 を , 1 の 方 に 拡大 , 縮小 され た も の 
を 描く (よう に し て あり ます 。 また, キー 入力 に は , INPUT 文 を 使わ ず , すべ て INKEY$ に よっ て ワ 
ン キ ー 入 力 に な る よう に し て あり ます か ら , この 使い 方 も よく 覚え て お いて くだ さる い 。 


常 。 PAINT 文 の 塗り は じ め の 位置 は , 図 4 -21 の よう な 決め 方 を する б РАМТ(1, 1); 
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47 バン ソコ ン 画 面 に 時 計 を か こう / 


@ 時 計 を 動か し て みよ う 
ここ まで で , グラ フィ ッ ク の 線 を 引い た り , 円 を 描い た りす る 命令 が どい だ いわ か り ま し た 。 
みな る ん も いろ いろ な 形 や 図 を 描 ( こ と が で きる よう に な っ だ こと と 思い ます 。 し か し , いつ 
まで も 線 を 描い て いる だ け で は 進歩 が あり ませ ん 。 そ ろ を そろ 動画 に 挑戦 し て みた いと ころ で す 。 
応用 と し て 時 針 ・ 分 針 ・ 秒 針 の つい た アナ ログ 時 計 を 作っ て み ま し ょ う 。 
まず , 針 を 動か す 方 法 を も 考え ます 。 こ の 時 計 の 基礎 ほな る 時 刻 は ,、 も ちろ ん X 1 の 内 蔵 時 計 
を 利用 し ます 。 ま ず ,TIME$ か ら 秒 を 取り 出し ます 。 文 字 列 処理 関数 の うち RIGHT$ を 使え ば , TIME$ の 
右 か ら 6 2 文字, つま り 秒 が 取り 出せ ます 。 こ の 他 に , 分 や 時 も 必要 で す が , MID$, LEFT$ と いう 
文字 列 処理 関数 を 使え を ば よい で すね 。 秒 針 を 描く 部 分 を サブ ルー チン と し て 使う よう に , あら 
か じ め ラ ベル を つけ て お きま す 。 
600 LABEL “HARI” 
610 BO=VAL(RIGHT$(TIME$.2)) 
VAL は 数 値 文 字 列 を 数 値 に 変換 する 関数 で す 。 文 字 列 と し て 取り 出し た TIME$ の 秒 の 部 を 数 
値 に 直し て お き , 後 で 計算 を 加え を られ る よう に 準備 し て お きま す 。 
秒針 は 60 秒 で 1 回 転 , つま り 360 度 回 り ま すか ら , 1 秒 で は , 6 で 6 度 だ け 動 き 87.20 
6 度 だ け 動 いた 針 の 位置 を 計算 する に は , 円 の 公式 を 使い ます 。 
この 公式 で は , 中 心から 右 に いっ た 位置 を 0 と し て 回 り に な っ て いま し た だ たから, 0 秒 の 位 
置 は この まま で は 時 計 の 3 時 の 位置 に な っ て し まい ます 。 こ れ を 真 上 の 12 時 の 位置 を 0 に する 
に は , 左 回 り に 90 度 戻し て や れ ば よい わけ で す 。 こ の 2 つの 点 を 考え る と , 秒針 の 角度 は , ВО 
*6-90 と いう こと に な り ま す 。 変数 BO は 現在 の 時 刻 の 秒 で す 。 る さらに これ を ラジ アン 単位 に 
変換 し な けれ ば な り ま せん か ら , プロ グラ ム 中 で は , 
620 BP=RAD(BO * 6—90) 
ょ し て あき ます 。 
針 の 長き は , 時 計 が 丸い 形 を し て いま すか ら そ の 半径 に な り ま す 。 時 計 の 半径 を RB と し , 中 
心 の 座標 を , メー160, Yー88 と する t, 円 の 公式 か ら 針 の 先 の 座標 を 計算 する こと が で きま す 。 
630 ВХ СОЗ(ВР) * RB + 160: 
BY =SIN(BP) * RB +88 
変数 BX, BY の 値 が 針 の 先端 の X 座 標 , Y 座 標 で す 。 中 心から この 座標 に 向かっ て 直線 を 引 
け ば , 秒針 が 描け り る こと に な り ま す 。 
640 LINE(165, 88) — (BX, BY), PSET, 6 
660 GOTO 600 
実際 に 動か し て み ま し ょ う 。 こ こ で は 画面 の 設定 も 何 ち し て いま せん か ら , ダイ レク トモ ー 
FT, 
SCREEN 0, 0 : CLS4 : WIDTH 40 
ー1 9 る 一 91191819 ба 
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と し ます 。 時 計 の 半径 RB の 値 も 決め て や ら な けれ ば な り ま せん 。 こ れ を 48 と し ます 。 そ れ で は 

プロ グラ ム を 走ら せ て み ま し ょ う 。 GOT0 文 に よっ て 動か し ます 。 LIST 文 や RUN の よ 5 に, GOTO 

文 も ダイ レク ト で 使用 する こと が で きま す 。 
RB=48 : GOTO 600 

GOTO 文 を 使わ ず RUN を 命令 し て し まう と , 

せっ か 〈 く この 前 に 指定 し た 変数 RB の 値 が 消 

ん て し まい まず 。 

確か に 1 秒 ご と に 針 が 動い て いま す が , 
前 の 針 を 消し て いま せん か ら 放 射 状 の 線 が 
描か われ て し まい ます 。 しかし, 1 秒 ず つっ 針 
が 動い て いく 様子 は わか る と 思い ます 。 5 
まく 動い た ら , サブルーチン と し て 使う た 
め に , 660 行 を , 

660 RETURN 
と 直し て お きま す (プロ グラ ム 4-15), 

FF, 分 の 針 6 も まっ た だく 同じ よう に 作る こ 
と が で きま す 。 まず, 針 を 動か の す メ イン ルー チン だ け を 作っ て お きま す 。 秒 ・ 針 の 時 計 が うま 
Ç 動け ば , 時 針 , 分 針 を 同じ よう に 書き 加え て や れ ば よい と いう こと に な り ま す 。 

[プロ グラ ム 4-15) 


609 LABEL "Накте" 

618 BO=VAL (RIGHTS (TIMES, 22) 

らら 9 BP=RAD <В0ж6-902 

630 ВХ=150+С05 (ВР) XREB:BY=838+SIN (BP) жев 
648 LINE (140,88) - (BX, Ву), PSET, 6 

660 RETURN 


⑧ 針 を 消す 
針 を 時 計ら し く 動 か す に は , 新 し い 針 を 描い た だ ら 前 の 針 を 消し て し まわ な けれ ば な り ま せん 。 
次 の 【 プ ログ ラム 4-13) を 見 て くだ きい 。 


(773 4-13) 


108 WIDTH 49:CLS 4:ЕВ=48 

160 SCREEN 8, 8 

178 LABEL "MAIN" 

180 GOSUB "HARIREST" 

199 GOSUB "чакте" 

230 GOTO 170 

500 LABEL "HARIREST" 

520 LINE (160, 88) - (EXR, BYR). PRESET, る 
550 RETURN 

608 LABEL "НАКТЕ#" 

6і8 BO=VAL (RIGHTS (TIMES, 022 

620 BP=RAD <В0ж6-%0) 

ら 39 Вх<16й+С05 (BP) же: ву-88 + 6 1М(ВР) KRB 1BXR= 1 る ロロ + ビ OHS (BP -RAD (6) ) XRB 
:BYR=88+SIN(BP -RAD (622жЕВ 

540 LINE (168,88)- (BX, 8Y), PSET, 6 
668 RETURN 
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針 は , LINE 文 で 描き まし た か ら , これ を 消す た め の 命 令 は , LINE 文 の PRESET で よい は ず で す 。 
新しい 針 を 描い た と き に 消す 針 は 1 秒 前 の 位置 に 描 わ れ て いた も の で すか ら 6, 角度 に し て 6 度 
戻っ た と ころ に な り ま す 。 新しい 針 の 座標 を 計算 する と き は , この 角度 に 対す る 座標 を 一 緒 に 
計算 し て な むく 《 よ うに し ます (630 行 )。 そして, PRESET ( 点 を 消す ) モー ド で LINE を 描く こと 
に よっ て , 1 秒 前 の 針 を 消し ます (520 行 ) 。 

次 に , 画面 の 初期 設定 を する 部 分 を 作り ます 。 初 期 設 定 と いう の は , これ か ら 組 も うと する 
プロ グラ ム の は じ め に 指定 し て や る も の で , と どの 画面 を 使う か , 文字 の モー ド を どう する か な 
と を 決め る 作業 で す 。 こ の プロ グラ ム で いう と , RB は , 前 に も あり まし た が 秒針 の 長き る で す 。 
ЖС, この 部 分 に 分 針 や 時 針 の 長き も つけ 加え る こと に な り ま す 。 

160 行 の SCREEN 命 令 は , 今 ま で に 何 回 か が プロ グラ ム 中 に で て き て いま す が , あ まり 詳し 説明 
し て いな か っ だ の で , ここ で ちょ っ と 詳し 〈 見 て み ま し ょ 2 う 。XX 1 は 40 字 モー ド の と き グ ラフ ィ 
ッ ク 画 面 を 2 つ 別々 に 独立 し て 持つ こと が で きま す が ,SCREEN 0, 0 と いう の は この うち の 「1 
ペー ジ 目 を 使う ぞ 」 と 指定 し て いる も の で す 。 

SCREEN 文 に 続け て すぐ で ぐ デ ィ ス プレ イ テ レ ビ の 画面 に 出す ペー ジ , つま り 目 に 見 える ペー ジ ( 出 
カペー ジ ) を 指定 し, 次 に LINE 文 や PSET な どの グラ フィ ッ ク 命 令 や 文字 の 書き 込み を 行なう ペ 
ー ジ (入力 ペー ジ ) の 順に 指定 し ます 。 


(04 4 -22〕 
SCREEN О, | 
入力 ペー ジ 
出力 ペー ジ 

2 枚 の 画面 の うち 最初 の ペー ジ を 
0 ペー ジ , 2 枚 目 を 1 ペー ジ と し て 
いま す 。 で すか ら SCREEN 0.1 と 指 | | 
定 す る と どう な る で し ょ うか 。 ちょ | SCREEN 0 SCREEN 1 


っ と や っ て み ま し ょ 2 う 。 

画面 に 何 か が 表示 され て いる 状態 で ダイ レク ト で , 

SCREEN 0, 1 (SC. 0, 1) 

と し て みみ ます 。 カー ツル が 見 えな く な っ て し まい まし た 。 こ れ は 、。 0 ペー ジ が 見 えて いて 、 1 
ペー ジ に 書き 込む 指定 で すか ら , 文字 の 表示 る れる 位置 を 示す カー ソル は 2 ペー ジ 目 の 方 に い 
っ て し まい , 画面 に 表示 され て いる 1 ペー ジ 目 か ら は 消 を た て し まっ た よう に 見 える わけ で す 。 
元 に 戻す に は , [CTRL | キー と [D] を 一 緒 に 押し ます 。[CTRL ]+[D] は , 画面 の 設定 を 初期 の 状 
態 に 戻す 働き を 持っ て いま す 。 

t し 画面 の 状態 が お かしく な っ たり , カー ツル が 消 を て し まっ た と き に は [CTRL ]+[D] と 覚 


えて お いら で くだ さい 。 
今度 は , 


SCREEN 1, 1 
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と し て み ま す 。 一瞬 の 間 に 画 面 が 切り か わり , 1 ページ が 表示 る れ ま す 。 今度 は カー ツル が で 
て いま すか ら , 0 ペー ジ と は 別 の も の を 書く こと が で きま す 。 2 つの 画面 を 切り か えて いろ い 


ろ と 試し て み ま し ょ う 。 
SCREEN 文 は ちょ っ と は じ め は わか り に くい と 思い ます が , よ く 使 われ る 応用 範囲 の 広い 命令 


で す の で ぜひ マス ター し まし ょ う 。 


(E 4 -24) 


SCREEN 1,1 gl] 


1 ペー ジ 


Сети + 


0 ペー ジ 
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CLS 4 は グラ フィ ッ ク 画 面 1, 2, 3, と 
テキ スト (文字 ) 画面 を 同時 に クリ ア ( き 
れい に 消す ) し ます 。CLS だ け で 何 も つ け な 
いと き に は , テキ スト (СТ) 画面 どけ を 
クリ ア し ,CLS 1, CLS 2, OLS 3 は , それ ぞ 
れ グ ラフ ィ ッ ク 画 面 の 1 2, 3 を クリ ア 
する こと に な り ま す 。 

170 行 か 6230 行 の GOSUB 文 の 集まり が プ 
ログ ラム の 中 心 と な っ て いる 部 分 で す 。500 
行か 6550 行 まで に , 針 を 消す 部 分 も 1 つの 
サブ ルー チン と し て まとめ て あり ます 。 メ 
イン ルー チン で は , まず 針 を 消す サブ ルー 


-. 

дж 69" 
«екет |” 

аи і NN ow や 


チン を 呼び , 次 に 新しい 針 を 描く サブ ルー チン を 呼び 出し て いま す 。 こ れ を 繰り 返す こと に よ 


っ て 秒針 を 動か し て いる の で す 。 


うま 〈 く 時計 が 動く か どう か , ブロ グラ ム に 誤り が な いこ と を 確か め て , RUN し て み ま し ょ 2 う 。 
この プロ グラ ム の よう に , 新しい 位置 に 描い た ら 前 の 位置 の 表示 を 消す , と いう の が 画面 上 
で 絵 表 示 を 動か す テ クニ ッ ク の も っ と も 基本 と な る も の で す 。 し っ か り と 理解 し て くだ さい 。 
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どう や ら 秒 針 を それ らし く 動 か すこ と が で きま し た 。 


し か し , よく 見 る と 針 の 根 も と が ちら 


つい て どう も 目 ざ わ り で す 。 こ こ で は 少々 高度 な テク ニッ ク を 使っ て ちら つき を 直し て み ま し 


まう 。 
(ПЯ 4 -25) 
見 えて いる 見 えな い 
画面 画面 
= 

ここ に 描い て お き 
描き あがっ た 瞬間 に 

入れ か える 
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前 の を 
消し , 
次 を 描く 


終わ っ た ら 入 れ か える 
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ちら つき の 原因 は 何かと 考え て みる と, 針 を 描い じ て い る LINE 文 と 消し て いる LINE 文 と が 針 の 
根 も と で 重なっ て いる た めで ある こと が わか り ま す 。 

を そこで それ を 活用 する た め に , 2 枚 の グラ フィ ッ ク 画 面 を 活用 し て み ま し ょ う 。 SCREEN 命 令 
で は , 実際 に 目 に 見 える ペー ジ と, 書き 込み を 行なう ペー ジ を 別に 指定 する こと が で きる こと 
В, も うみ な さん お わか り で すね 。 これ を 利用 し て , まず ディ スプ レイ テレ ビ の 画面 で は 見 え 
な い ペ ー ジ で 針 を 描い た り , 前 に 描い た 針 を 消し た り と いっ た 作業 を し ます 。 そ し て , 描き 終 
わっ た 瞬間 に この 2 つの ペー ジ を 入れ か えま す 。 入れ か える と いっ て も , ほん の 一 瞬 の 作業 で 
す 。 再 び 画 面 に は 見 えな い ペ ー ジ で 仕事 を し , 終わ っ た ら ま だ 入れ か えま す 。 こ うす る と , Ж 
際 に ディ スプ レイ テレ ビ で 見 える ペー ジ の うえ では, 描い た り 消 し た り , と いっ た 作業 は 一 切 
行なわ れ ま せん か ら , ちら つき の な いき れい な 線 が 得 ら れ ま す 。 画面 上 で 図形 な ど を 動か す と 
き に この 方 法 (マル チ ス クリ ー ン ) を 使う と, 自然 な 動き を 得る こと が で きま す 。 

それ で は 【〔 プ ログ ラム 4 -14〕 を 考え て み ま し ょ う 。 

(プロ グラ ム 4-14) 


108 WIDTH 480:CLS 4:RB=48:RF=44:RJ=40 

180 SC=9:CS=1 

170 LABEL "МАІМ" : SCREEN SC, CS 

180 GOSUB "HARIREST" 

1908 GOSUB "накте" 

200 GOSUB "HARIH" 

210 GOSUB "накте" 

220 SWAP SC, CS 

230 GOTO 178 

500 LABEL "HARIREST" 

520 LINE (168, 88) - (BXR, BYR), PRESET, 6 

530 LINE (168, 88) (FXR, FYR). PRESET, 

540 LINE (160, 88)-<(JXR, JYR) , PRESET, 3 

550 RETURN 

ó00 LABEL "HARIH" 

610 BO=VAL (RIGHTS (TIME$, 25) : I= BO=BZ 65070 618 
628 SP=RAD <В0же-90) 

638 BX=16g+COS (ВР) RB Ву-88 +5 IN (BPI MRE ЗХЕ< 16й+СО5 (ВР-ВАО (622 XRB 
:ВУК-88 + 5 ТМ (BP -RAD (6) 2 XRB 

648 LINE (150, 88) - (BX, ВҮ),РЅЕТ, 

650 вс-во 

6608 RETURN 

700 LABEL "HARIH" 

710 FU=VAL (MID$ (TIMES, 4,229 

720 FP=RAD (FU る - の 9) 

730 FX=16g+COS(FP) ЖЕЕ : Е У<88 + 51 М (FP) XRF 

748 ЕХК<16й+С05 (ЕР-КАО (6) ) ЖРЕ :FYR=88+SINKFP-RAD (5) } XRF 
750 LINE (168, 88) - (РХ, ЕУ), РЗЕТ, 5 

770 RETURN 

800 LABEL "HARIM" 

810 JI=VAL (LEFT$(TIME$, 222 

820 JP=RAD < (J Ix30+FUx, 5)-70) 

830 7Х-160%С05 (ЈР) жеј:ЈҮ=38+51М‹(ЈР) жЕЈ 

840 //ХЕ-160%С05 (ТР-КАО ‹. 5S))xRJ:JYR=88+SIN(UJP-RAD С. 5) ) XRJ 
850 LINE (150,88) - (JX, JY), РЗЕТ, 3 

860 RETURN 


ФЕ 81181111 шан ЁТ жаш 


まず , SCREEN 文 の パラ メー タ を 変化 きせ な けれ ば 


いけ ませ ん か ら , ここ に 変数 を 置き ます 。 ま た , В ашы 
期 設 定 は 表示 ペー ジ (出力 ペー ジ ) と 書き 込み ペー n 

ジ (入力 ペー ジ ) と を 切り か を な く て は な り ま せん ーー 

か ら , 表示 ペー ジ を SC, 書き 込み ペー ジ を CS と い 5 Е И ы тыры 
変数 に 代入 し て な ぉ きま す (160, 170 行 )。 最 初 は 1 ペ ЖІ 


ー ジ 目 (出力 ペー ジ ) が 表示 る れ て いる 状態 で , 2 
ペー ジ 目 (入力 ペー ジ ) に 針 を 書き 込み ます 。 書き 
込み は , 180 行 と 190 行 の GOSUB 文 で , 前 の 針 を 消す 
サブ ルー チン と 新しい 針 を 描く サ プ ブルー チン を 呼び 


_ | (Жа. 22%) 
出す こと に よっ て 行ない ます 。 こ の と き は 1 ペー ジ に 
目 (出力 ペー ジ ), つま り 実 際 に 日 で 見 えて いる 画面 お いて < で Sv 
に は まだ 何 も 描 わ れ て いま せん 。 N ҚЫ; Ке ж” 
/ 
220 行 で SWAP 文 に よっ て SC と CS の 値 を 入れ か えて | ! ` 
ж 252 Тв. Зе Q ` 
いま す 。 SWAP 文 は , 2 つの 変数 の 中 身 を 交換 する 働 К ^ч и 
き を し ます 。 | 
\\ l 
[SWAP 変数 |, 変数 2 | 2 < || 
変数 1 の 値 を 変数 2 に , 変数 2 の 値 を 変数 U A 2 + 
れ て 値 の 交換 を 行ない ます 。 変 数 は 数 値 型 。 кът (ойу ЗЕ Ван! 


どちら で も よい の で す が , 変数 の 型 は 同じ で な けれ ば な ら な いこ と は いう まで も あり ませ ん 。 
変数 SC と CS の 中 身 ち 入れ か える L, 表示 ペー ジ と 書き 込み ペー ジ が 入れ か わり ます 。 今 まで 
針 の 書き 込み が 行なわ れ た ペー ジ が 表示 され, 針 が 見 える よう に な り ま す 。 こ うし て 見 えな く 
な っ た も う 一 方 の ペー ジ で は , 次 の 人 針 が 描 わ れ て いま す 。 も うぅ 一 度 220 行 に 来 た と ころ で 画面 が 
切り か えら れ , 針 が 動い た よう に 見 える わけ で す 。 前 の 針 を 消す 部 分 は , 時 , 分 , 秒 の 3 本 の 
針 を 一 気 に 消 せる よう , 1 つ に まとめ て し まい まし た 。 

また 秒針 の 表示 を 600 行 か ら , 分 針 が 700 行 か 6, 時 針 が 800 行 か ら に まとめ て あり , LINE 文 に 
よる 指定 に よっ て 秒針 は 黄色 , 分 針 は 水色 , 時 針 は マゼンタ で 描い て いま す 。 秒 の サブ ルー チ 
ン に 少し 追加 し た 部 分 が あり ます 。 こ れ は , ある 1 秒 の 間 は , 次 の 書き 込み を 行なわ な いよ う 
に する た めで す 。 こ の 作業 を 行なう こと に よっ て , 一 時 的 に 針 が 2 本 表示 され る の を 防ぐ こと 
が で きま す 。 時 針 を 描く サブ ルー チン の 中 の 820 行 は , 秒針 , 分 針 よ り も 少々 複雑 な 計算 式 を 使 
っ て いま す 。 これ は , た と え ぇ ば 5 時 30 分 の と き に 針 を 5 と 6 の 間 に 持 っ て いく た め の も の で , 
どの よう な 処理 を し て いる か を みな さる ん も プ ブログ ラム を 見 な が ら 6 考え て みて くだ さい 。 

これ で , 一 応 時 計 の 3 本 の 針 を 動か すこ と が で きま し た 。 次 か ら は , いろ いろ な グラ フィ ッ 
ク 命 令 を 使っ て , 時 計ら 5 しい 形 を 作っ て いき ます 。 


== 一 8111008080 Үй 


4-8 (ソコン ベイ ラダ タ いろ し る 


@10 進 , 2 進 , 16 進 の か ず か ず 


ここ で は 「 色 を 混ぜ る 」 機能 ち マス ター し て いた だ だき ましょ う 。 

その 前 に , グラ フィ ッ ク パ ター ン を 作る と き に は どう し て も 必要 な 知識 で ある 2 進数 と 16 進 
数 と 10 進 数 に つい て 説明 し て お きま す 。 

まず , わた し だ た ち が 日 常 使っ て いる 10 進 数 か ら 6 見 て いき まし ょ う 。「 数 字 の 各位 置 が 10 を 基数 
と する べ キ 乗 で 示 る れる よう な 数 字 の 表現 方 式 .」 と いう の が 10 進 数 の 定義 ど で す が , これ で は よ 
《 く わかり ませ ん ね 。 こ の 定義 を 言い か えれ ば , 「 0 か ら 10 に な っ た ら 6 桁 上 が りす る 」 と いう こと 
で す 。 た と えば , 4109 とい う 数 字 は , 

4109= 4 х 108 + 1 X102+ 9 х 10° 
= 4 X1000+ 1 X100+ 9 
と いう よう に , (0 か ら 69 の 数 ) X10 の ベ キ 乗 で 表わす こと が で きま す 。 こ の 10 を 基数 と いう の 
で す 。 こ の 10 進 数 は わた し た ちの 生活 に は な く て は な ら ぬ も の で す 。 と ころ が コン ピュ ー タ に 
と っ て な く 《 て は な ら ぬ も の と いえ ば , それ は 2 進数 な の で す 。 

2 進数 と は , 先ほど の 10 進 数 の 定義 に 従え を ば 「 2 の ベ キ 乗 で 表わさ る れる 数 」 と いう こと に な 
り ま す 。 つ まり , 0, 1 と 数 えて いく と 次 は ジュ ッ ウッ で は な く ,。 イチ ゼロ (10) に な る と いう わ 
け で す 。 で すか 6 ら 2 の で キ 乗 に 書き か えて 計算 すれ ば , 10 進 数 に 変換 で きま す 。 

11110=1X2* 十 1X23 十 1X22 十 1X2 十 0X29 
= 16 + 8 + 4 + 2 + 0 
= 30 

コン ピュ ー タ の な か で は , 10 進 数 で 打ち 込ま れ た 数 字 を 2 進数 に 直し て 計算 し , また それ を 
10 進 数 に 直し て 表示 し て いる の で す 。 

16 進 数 も これ と 同じ よう に 「16 の べ キ 乗 で 表 わ る れる 数 」 と いえ ます 。 し か し , 数 字 を 表 わ 
す 文 字 は 0 一 9 の 10 個 し か あり ませ ん か ら , これ で は 16 進 数 を 書き 表わす こと は で きま せん 。 
これ は ABCDEF と いう 文字 を 使う こと で 解決 し て いま す 。 

10 進 数 012345678 9101112131415 
ра КУУ TU + 
16 進 数 0123456789ABCDEF 
16 進 数 を 10 進 数 に 直す 方 法 は も うわ か り ま すね 。 
2 B= 2 х16: + B х16° 
= 32 十 11x1=43 
ЕЕ <14х16: + 15Х16 
= 224 +15X 1 =239 

16 進 数 は HH を つけ て 10 進 数 と 区 別して いま す 。HEX$ と いう 関数 を 使え ば, 10 進 数 を 16 進 数 
に 直し て や る こと が で きま す 。 た だ し 注意 し て ほし い の は , HEX$ で 変換 し た 結果 で ある 16 進 数 
ті 6ill1888B1 -118- 


は , 文字 列 ど と いう 点 で す 。 
も ちょ っ と 横道 に を れ ま し た が , も う 一 度 色 の 勉強 に 戻り まし ょ う 。 


⑧@ タ イル を な ら べ て 色 を つけ る 


PAINT 文 で 色 を 塗っ た 部 分 を よく 見 て みる と , 文字 や 記号 や LINE 文 で 描か れ た 線 と 同じ よう に , 
ドッ ト が 集まっ て 塗ら れ て いる こと が わか り ま す 。X 1 で は , この ドッ ト ご と に 色 を 指定 する こ 
と に よっ て , 基本 の 8 色 以 外 の 中 間 色 も 作る こと が で きま す 。 

本 来 , グラ フィ ックス で 使わ れる 8 色 の 色 は , 青 , Ж, 緑 と いう 光 の 3 原色 の 組み 合わ せ で 
作り 出 き れ て いま す ( 表 4-3)。 


表 4-3 3 тоже 
組み 合わ せ 結 Ж 


8 ドッ ト X 8 ドット の 枠 を まず 考え て み ま し ょ う 。 こ れ を タイ ル パ タ ー ン と 呼び ます 。 ちょ 
うぅ うど タイ ル を 並べ た よう な 形 (パタ ー ン ) で す 。 そ し て この タイ ル (F > F) の それ ぞ れ に 色 
を つけ て いき ます 。 た と えば , 図 4 -26 の よう に , ВЕЖЕ, R に 赤 を 置い た と し ます 。 画面 は 
非常 に 細か い ド ッ ト の 集まり で すか ら , こう する と 紫 に 近い 色 が 得 ら れ ま す 。 


(54 4 -26) 


1 Н АА5500 
2 В 55АА00 


-114- я: :таяйта 


~J 
го 


4 X1 お も し ろ グ ラフ ィ ッ クス 


ST, この パタ ー ン の 1 段 目 を 横 に 見 て , 青色 の ドッ ト が ある と ころ を 1, な いと ころ を 0 
と する と, 10101010 と 表わす こと が で きま す 。 1 と 0 の 組み 合わ せ で 表記 され た だ 数 で すか ら , 
これ は 2 進数 と 考え る こと が で きま す 。 これ を 16 進 数 に 直す と , &HAA と な り ま す (「&H」 は 16 
進数 で の 表記 で ある こと を 示す 目印 で す )。 同じ よう に 1 段 目 の 赤色 は , &H55 に な り ま す 。 緑 は 
まっ た だ たく 使わ れ て いな い の で , 2 進数 で , 00000000, 16 進 数 で は &H00 と 表わす こと が で きま す 。 
この 青 , №, 縁 と いう 光 の 3 原色 の 順に 16 進 数 を 並べ さる L, 「AA5500」 ほ と な り ま す 。 こ れ が , X 
1 の タイ リン グ ペ イン ト で 使わ れる 色 の デー タ な の で す 。 同じ よう に し て 2 段 目 を , “55АА00” 
L Kb 33. 

3 段 目 以 降 は この 2 段 の 繰り 返し で すか ら , あえ を ぇ て 指定 する 必要 は あり ませ ん 。 し た が っ て 
ドッ ト に 赤 と 青 を 交互 に 並べ て 作り 出す 紫色 の デー タ は , 


22 ТЕЗ AE a 

AA5500 55AA00 

ERER жон 
と な り ま す 。 

デー タ が 用 意 で きま し た か ら , 実際 に PAINT 文 で 作っ て み ま し ょ 2 う 。 
18 いい 1DTHS ご ビ マ ニ ご NO。 B: C 54 


20 _ІМЕ 110.10) - (100. 126) „РЗЕТ, <, 8 
38 РАІМТ 11,112. HEXTHRS ( "аастайзбадяя") 
48 END 


この プロ グラ ム を 実行 する L, 白 で 囲ま れ た 枠 の 中 を , 紫色 で 塗り つぶ すこ と が で きま す 。 


@16 進 数 を 切る !? 


HEXCHR$ 関 数 は , 16 進 数 を 数 と し て で は な く 文 字 の 列 と し て 扱い な が ら , 最初 か 6 2 文字 (2 
バイ ト ) ずつ 区 切っ て , を の 2 文字 に 対応 する キャ ラク タ に 変換 し て 文字 列 を 作り ます 。 
少し か せ ず か し い 話 に な り ま す が , 巻末 の キャ ラク タコ ー ド 表 を 見 て くだ さい 。 

この 表 を 使う と, X 1 が 持っ て いる すべ て の 文字 や 記号 を 2 桁 の 数 字 (16 進 数 の 表記 ) TE 
わす こと が で きま す 。 表 の 中 の 「W」 の 文字 を 見 て み ま し ょ う 。「W」 が 書か れ た 列 を 上 に だ ど 
る と 5, 左 に 行く て と 7 に な り ま す 。 こ の 「57」 と いう 数 字 が , 実は アル ファ ベッ ト の 「W」 を 
表わし ます 。「 今 」 の 記号 を 同じ よう に 見 て みる と 「E 2 」 と 表わさ る れる こと が わか り ま す 。「〒」 
で あれ ば 「FF」 で す 。 

「57」 も 「E 2」 も 「FF」 も , すべ て 2 桁 の 16 進 数 ど あ る こと は も うお わか り で すね 。 


18 АФ-"СЕрЕЗӘСФАй58З1" 
28 PRINT HEXCHRS (AS) 


この プロ グラ ム を 走ら せる と , 画面 に は 「 ボ クノ  X 1」 と 表示 され ます 。HEXCHR$ 関 数 が , 
DAŞ とい う 16 進 数 の 文字 列 を 2 つ ず つ に 分 解 し , ② そ の 16 進 数 で 表わさ きれ る キャ ラク タコ ユー ド 
に 対応 する 文字 を 読み 出し , PRINT 文 で 表示 きせ て いま す 。 

CE DE B8 C9 A0 58 31 

L Ú+ + | 1 #4 
ホ Ж % Z 。 (スペ ー ス ) X 1 
73 01110011 -і15- 


本 題 に 戻り まし ょ う 。 ここ で は , PAINT 文 に 対す る 色 の デー タ と し て 16 進 数 を 使っ て いま すか 
б, HEXCHR$ を 使っ て いて も 文字 や 記号 が 表示 され る の で は あり ませ ん 。 ド ッ ト ご と に 色 の 指 
定 を し て , それ を 青 , 赤 , о 3 色 の それ ぞ れ に 8 桁 の 2 進数 の パタ ー ン に 直し , 5542Ж 
の 16 進 数 に 直す の で すか ら , 色 の デー タ を 作る の は な か な か 面倒 な 作業 で す 。 し か し , ここ 
学ん で いる 考え 方 は , X 1 の 機能 を 活か すう え ぇ で , 大 切な も の で す 。 じ っ くり と 取り 組ん で み 
て くだ さい 。 


人 中 間 色 も いろ いろ 


т.ж, WO 3 原色 か ら デ ー タ を 作る こと は わか り ま し た が , 水色 (シア ン ) と 緑 を 交互 に 
置い て 若草 色 を 作り た いと き は どう すれ ば よい で し ょ うか 。 シ アン は 青 十 緑 で 作ら れ て いる 人 色 
で すか ら , シア ン で 色 を 指定 する ドッ ト に は 青 と 緑 の 両方 の デー タ が 置か れ な けれ ば な り ま せ 
Ao Kl 4 -27 を 見 て くだ さい 。 

この よう に , 色 の 3 原色 に 分 け , それ ぞ れ の 色 に つ (8544-27) 
いて デー タ を 調べ る こと に な り ま す 。 メー 緑 

タイ リン グ ペ イン ト で は , この よう な 中 間 色 だ け で БЕ шышы TESS 
な く , 締 模 様 や 綾 模様 な ども 作る こと が で きま す 。 だ た 
と えば , ななめ の 締 の 場合 , 1 段 目 の 1 つの 色 を 青 に = 
すれ ば , 16 進 数 の 表記 で 01 と な り ま す 。 そ うす る と 青 
以外 の 赤 , 縁 の デー タ は 00 で すか ら , 1 段 目 は 010000, 
2 段 目 は 020000…… と な り ま す ( 図 4 -28)。 こ の よう 


【 図 4 -28) 


緑 
| | | | | | | |@ に oioooo に 
LLL “ass Е: 
HH H s 
ШЕНСИНЕН 
| | e | | | | | 


に し て , 8 段 分 の デー タ を 作っ て , PAINT 文 を 使え ば , いろ いろ な 模様 パタ ー ン で 塗る こと も で 
きま す 。 

次 の 【 プ ログ ラム 4 -16〕 は , 赤 か ら は じ ま っ て , 赤 に 戻っ て くる 12 色 並び の それ ぞ れ の 色 を 
塗る る の で す 。 各 デー タ が , どの よう な ドッ ト の パタ ー ン を 作っ て いる か , 6 文字 ずつ 区 切っ 
て 調べ て みて 〈 だ さい 。 
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4 X1 お も し ろ グ ラフ ィ ッ クス 
[プロ グラ ム 4-16) 


18 WIDTH 88:5СБЕЕМ й, й:с| 5 4 

28 ОІМ COL*(12)., CNAM$ (12) 

38 FOR Ісі ТО 12 

49 READ COLS<I), CNAMS СТ) 

50 NEXT 

100 FOR 151 ТО 12 

110 IF <1-1) MOD 8=0 THEN XX=@:YY=YY+1 ELSE ХХ-<1-12 MOD 8 
120 LINE (Ххж8@, (ҮҮ-1)ж48+8›-(Ххж8й+7@, СҮҮ-12ж48%40),Р5ЕТ,7,В 
130 LOCATE ХХж10, (YY-1)xé:COLOR 7:PRINT СМАМФ (I) 
140 PAINT (XXXSB+1. СҮҮ-12ж48%9), HEXCHRS (COL $ (1) ) 
150 NEXT 

160 LOCATE й, 12 

200 DATA 99FFG ロ アカ 

218 DATA B0B0FF88080EF22, 4° хуя“ í 

220 DATA ййЕЕЗЗВВЕЕВА, 527489, 

230 DATA 99FFFF, キ イロ 

248 DATA й055ЕРВВАЙЕЕ, # Е“ U 

250 DATA 8999FF、 к“ 

268 DATA 5500FFAAGOFF, アオ ミト リ 

278 DATA 5599AAAAB95。 aR" リア オ 

280 DATA FF08000, アオ 

290 DATA FFBB99F に つつ 99。 ア オム ラサ キ 

300 DATA FF5599FFAA9g, 457 + 

318 DATA FFFF99, アカ スラ サキ 


@ デ ー タ を 読む 
さて ここ で , また 新しい 命令 を 覚 を な けれ ば な り ま せん 。 READ と DATA で す 。 READ 文 は , いつ 
で も DATA 文 と 組 に な っ て 使わ れ ま す 。 そこ で DATA と いう 命令 を 探し て いる と , 200172° 5 31017 


まで ぎっ し り し と 並ん で いま す 。 
DATA 文 は , 文字 どおり コン ピュ ー タ に 特定 の 


デー タ を 与え る 命令 で す 。INPUT 文 を 使う と 画面 ще” Ка 
に コン ピュ ー タ は 「?」 を 表示 し て デー タ の 入 коз“ же 
я 3 - V => е aa ЗЕ еее” 4% 2. 
力 を 要求 し て きま す 。 そこ で 必要 な デー タ を プ дү же 7. 


ログ ラム 実行 中 に 入力 する わけ で す 。DATA 文 を N 
使う と , あら か じ め プ ログ ラム の 中 に 必要 な デ 
ー タ を 書き 込ん で むく こと が で きる の で す 。 

READ 文 は , これ も 文字 どおり に 「 デ ー タ を 読 \ 
め 」 と いう 命令 で す 。 プ ログ ラム 中 に READ 文 が 
ある と , プロ グラ ム の 流れ は DATA 文 を 探し に い 
きま す 。DATA 文 が 見 つか る と , READ 文 の 後に 書 
か れ た 変数 に , DATA 文 で 指示 され た デー タ を 読 
み 込 み ま す 。 も ちろ ん 数 値 変数 に は 数 値 の デー タ , 文字 列 変数 に は 文字 列 の デー タ と いう よう 
に 対応 し ます 。 プ ログ ラム を 見 る と, DATA 文 で 指示 し た 場合 文字 列 の デー タ で も 「"」 で 囲む 
必要 が な いと いう こと が わか り ま す 。 

た だ し , 「, 」( カ ンマ ) も デー タ の 一 部 と し て 使い た い 場 合 は 特に 「 "」 で 囲み ます 。 こ の よ ょ 
う な 場合 は 全部 の デー タ を 「? 」 で 囲ん で し まう 方 が 見 や すい で し ょ 3o 
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〔 プ ログ ラム 4-15) 中 で は , READ 文 の 後に 2 つの 変数 を 置き , DATA 文 の 後に も 2 つの デー 
タ を 置き , それ ぞ れ の 変数 ほし デー タ を 対応 きせ て いま す 。 変数 に 対応 する デー タ が な いと エラ 
ー に な り ま す 。 デ ー タ が 多 過 ぎる こと に は , 問題 は あり ませ ん 。 

この プロ グラ ム で は READ 文 の 後 の 変数 を 配列 変数 と し ,FOR て NEXT 文 を 使っ て 1 つの READ 文 
で 何 回 も デー タ を 読み 込む よう に し て いま す 。 し ば し ば 使う テク ニッ ク で す の で 覚え て ぢ 〈 と 
CS l. 5%, 

〔 プ ログ ラム 4-15) 中 で は 使っ て いま せん が , RESTORE 文 と いう も の も あわ せ て 覚え て お い 
て くだ さい 。 

READ て DATA で は , プ ログ ラム 中 で は じ め に 見 つけ た DATA 文 か ら デ ー タ の 読み 込み を は じ め ま 
+, を こ で RESTORE 文 を 使う と 指定 し た 行 番号 の DATA 文 か ら デ ー タ の 読み 込み を る せる こと が 
で きま す 。 また , RESTORE 文 で は 行 番号 び で け で は な く , ラベ ル も 使う こと が で きま す 。 詳 し いこ 
と は , 後 で 実際 に RESTORE 文 を 使っ た プロ グラ ム を 見 な が ら 確 かめ る こと に し まし ょ う 。 
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2-9 БЕ <, 8) IJ J 


⑧ 時 計 の 外形 を 描こ > (E 4 -29) 


図 4 -29 の よう な 時 計 に し よう と 思い ます 。 

前 の と ころ で , 12 色 の 色 デ ー タ を 作り まし た か ら , 時 計 
の 外側 を 時 間 単 位 に 分 割 し , それ ぞ れ 塗り 分 け ま す 。 また , 
この 色 の 輪 と 内 側 の 円 の 間 に は , 後 で 文字 を 入れ られ る よ 
う , スペ ー ス を 空け て お きま す 。 

例 に よっ て , プロ グラ ム を いく つか の サブ ルー チン と し 
て まとめ て お く 《 こ と に し ます 。 まず, 時 計 の 外形 を 描く す 
プ ブルー チン を 作っ て お きま し ょ う ( プ ログ ラム 4 -17) OUT- 
LINE と いう ラベ ル を つけ て 使う こと に し ます 。CIRCLE 文 を 使っ て 3 つの 円 を 描き ます (880 一 900 
行 )。 パ ラメ ー タ を 省略 し て よい と ころ は すべ て 省略 し て し まい まし た 。 どの よう な パラ メー タ 
を 省略 され て いて , どの よう な パラ メー タ が 書き 込ま れ て いる の か , 十分 に 確認 し て お いて く 
7751 

〔 プ ログ ラム 4-17]〕 


878 LABEL “OUTLINE” 

880 CIRCLE “150, 55.9502, & 

890 СІВС_= (150,93), 75, 7 

200 CIRCLE (150, 58.87 

910 RESTORE 1800 

920 FOR 1=-99 TO 276 STEF ЗЯ 


93е XG=1&B+CDS CRA CI INES YS ЕБІ (RAD CIJ) KES 

740 ХО=1650+605 RAZI) жт: TISAI ТМ RAD CIJ) 57 

9580 ХР=1&0й+С05 (RAD (1-5) ) жай: VOSS IN (RAS (1-5) ) жей 
70 LINE (Хб, YG) - Хи. YU РВЕТ, FIIF 1=-90 GOTO 9880 
9760 READ PS, АФ: РАІМТ (ХР, ҮР), ҺЕХГЕНЯ(РФОУ 


980 NEXT 

990 RETURN 

1088 рата 99FFBg。 ア カ 

1010 DATA GFFBB ロ OF らら 。 9° AA A 
1020 DATA яйЕ-559айвгаа, #8“ 12“ A 
1038 DATA BBFFFF0BFEFFF, “Ас 
1048 DATA й8555Ейбаавв, == 11 
1050 DATA BOBFE ュ ミト TU 

1068 DATA 5508=SFAAB3FF, жу) 
1979 DATA 55ййабааайй55, ミト“ リア イオ 
1030 DATA ЕЕ вйда-<зава, マオ 
1090 DATA に に BB899F こ どら ロッ アオ ら ラ サキ 
1100 DATA FF55808FF65ñ0698., 4295 
1110 DATA に に FF ロ BB) アカ ムラ サモ 


же, 外側 の 円 と 内 側 の 円 の 円 周 上 の 点 を 30 度 ご と に 求め 、 それ を LINE 文 で 結び ます 。 ここ 
св, 前 に 学ん だ 円 の 公式 を 使っ て 円 周 上 の 点 の 座標 を や 求め ます 。 

図 4 -30 を 見 る と, 1 の 値 が ー90 の と き に 12 時 の 位置 に 縦 の 線 を , 一 00 の と き に 1 時 の 位置 に 線 
を 引け ば よい こと が わか り ま す 。 


ЕЧ! 


1 


81118111 =j r= 


970 行 で は , READ 文 を 使っ て 色 の デー タ を 読み 込ん で いま 
行 ,「RESTORE1000」 と いう よう に デー 

+. 910 行 RESTORE 文 で , "RES 」 と いう よう に デ (E 4-30) 
タ の 読み 込み 先 を 指定 し て いま す 。 —90. 270 

デー タ を 読み 込む と, PAINT 文 で その 色 を 塗り ます 。 色 を 240 
塗り は じ め る 座標 点 を , 950 行 で 計算 し て いま す が , 座標 点 
は それ ぞ れ の 扇形 の ほぼ ば 中心 に な る よう な 計算 と な っ て い 
ます 。 

この プロ グラ ム で 注意 し て お きた い 考 え 方 の 1 つが ,950 р 90 この 線 を 


行 の 後半 の IF 文 に よる 条件 判断 と その 処理 で す 。 I の 値 が ー е 
90 の と き に は , READ 文 を 飛び 越え を て し まう よう に し て いま 行なわ な い 。 
す 。 

変数 1 の 値 が ー90 の 場合 , 輪 を 区 切る 12 時 の 位置 の 線 , 


っ まり 1 本 目 の 線 を 描い て いま す 。 他 の 区 切り が あり ませ 1776 

ん か ら , PAINT 文 が 実行 きれ る と 輪 の 内 側 の 全体 が 塗り つぶ uk aqa 5 
| 

され て し まう こと に な り ま す 。 ま た 図 4-30 を 見 る と わか する 。 


る よう に , 12 本 の 線 を 引く た め に , 必要 な 変数 I の 値 は , 


ー90 か ら 240 で 十 分 な の で す が , ここ で は PAINT 文 を 12 回 1-20 
5 > > め に қ この 線 を 
うま 働か の せる た め に , ひと まわ り し て きた 12 時 の 位置 , пеше ИНА 
つま りー 一 270 度 の 位置 に も 線 を 描い て いま す 。 この 辺 か ら 
塗り は じ 
め る 


@ 時 計 よ , 動け / 


いか が で し ょ うか 。 ブログ ラム の 仕組 み が わ か っ た と ころ で , さっ を そく 実行 し て み ま し ょ う 。 
プロ グラ ム の 途中 か ら 実 行 す る ときには, GOTO 文 か が GOSUB 文 を 使い ます 。 ダ イレ クト モー ド で 
次 の よう に 打ち 込み ます 。 

WIDTH 40 : SCREEN 0, 0 : GOSUB 870 

うま く 動 いて きれ いな 外形 が 描け り た で し ょ うか 。 こ の よう に , ひと まとめ の 処理 サブ ルー チ 
ン ご と に テス ト す る こと が で きま す 。 テ スト を し て うま 動く よう な 6, これ まで に 作っ て き 
た 時 計 プ ログ ラム に , この サブ ルー チン を 呼び 出す 命令 を つけ 加え て , プロ グラ ム を 走ら せ て 
みな る こよ と に し ます 。 

110 行 を GOSUB "OUT LINE" と し て や れ ば , まず この サブ ルー チン が 呼び 出さ れ , 後 は 今 
まで と 同じ 針 を 動か す 部 分 を 繰り 返す わけ で すか ら , うま く 動 きそう で す 。 試し て みる と , $F 
が 動く だ びに 外形 が 表 わ れ た り 消 えん たり し ます 。 こ の 時 計 で は 針 を スム ー ズ に 動か す た め に , 
ペー ジ を 切り か える マル チ ス クリ ー ン の 方 法 を 使っ て いた こと を 思い 出し て くだ さい 。 1 ペー 
S, 2 ページ を 交互 に 切り か えて いた ので, この 外形 を 両方 の ペー ジ に 描い て な か な く 〈 く て は い 
け な か っ だ の で す 。 SCREEN 文 で 書き 込み ペー ジ を 変え て , この サブ ルー チン を 呼び 出せ ば よい 
わけ で , まず , 1 ペー ジ 目 に 描く た め に は , 
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SCREEN, 0: GOSUB " OUT LINE " 
次 に 2 ペー ジ 目 に 同じ も の を 描く た め に , 
SCREEN, 1: GOSUB " OUT LINE " 


も まず 。 
ここ で は 外形 を 描く サ プ ブルー チン が 2 回 呼ば れ て いま す の で RESTORE 文 で デー タ の 読み は じ め 


の 場所 を 指示 し て お か な いと , 


と な り ま す 。 
プロ グラ ム を 実行 する と , 最初 に この サブ ルー チン が 呼び 出る きれ, 時 計 の 形 が 描か われ ます 。 
その 後 は これ まで に 作っ て きた 針 を 動か す サ プ ブルー チン を 繰り 返し ます 。 
ここ まで の 全体 の リス ト を 載せ て あり ます の で , 全体 の 流れ を よく 見 て お いて くだ きい (7 
ログ ラム 4-18), 
それ で は プロ グラ ム を RUN さ る せ て み ま し ょ う 。 КЕНІ, 動け / 
〔 プ ログ ラム 4-18) 


199 
110 
160 
170 
180 
190 
200 
210 
220 
230 
500 
510 
520 
530 
540 
る 99 
ら 19 
620 
530 


MIDTH49:iCLS4:RB=48:RF=44:RJ=49 

SCREEN, 8: GOSUB "OUTLINE": SCREEN, 1:G0SUB "OUTLINE" 
5С=0:С5=1 

LABEL "МАІМ" :5СВЕЕМЅС, CS 

GOSUB "HARIREST" 

GOSUB "НАВІФ" 

GOSUB "HARIA" 

GOSUB "НАВ Ів": ТЕ FJ=0 THEN FJ=1 

SWAP SC, CS 

GOTO 170 

LABEL "HARIREST":IF FJ=@ THEN RETURN 

LINE (160, 88) - (BXR, ВУК), PRESET, 5 

LINE (168, 88) - (FXR, FYR), PRESET, 5 

LINE (160, 88) - (JXR, ТУК), PRESET, З 

RETURN 

LABEL "НАВ ІФ" 

BO=VAL (RIGHT*$ (ТІМЕФ, 2) ) : IF 350-8С GOTO 618 

BP =RAD <В0ж6-902 

BX=160+C0S (BP) жеВ:ВҮ=88+51М№ (BP) 水 RBIBXR=1 る ロ + ヒ OS (BP-RAD (6) 2 XRB 


:BYR=88+SIN (BP -RAD (5) ) жав 


548 
650 
668 
700 
710 
720 
730 
740 
750 
770 
800 
810 
820 
839 
849 
859 
8680 
870 
880 
890 
ヶ 99 


LINE (160, 88) - (BX, BY), РЗЕТ, 6 

BC =B0 

RETURN 

LABEL "HARIA" 

FU=VAL (MIDS (TIMES, 4, 222 

FP =RAD (FUXS -9 0) 

ЕХ-160%С05 (ЕР) XRF : Е 588 + 5 1М(ЕР) XRF 

ЕХЕ-160%С05 (FP -RAD (5) )*xRF : РҮР=88+5 1М(ЕР-КАО (6) ) XRF 
LINE с16й, 88) - «Ех, ЕУ), РЗЕТ, 5 

КЕТОКМ 

LABEL "HARIM" 

J I=VAL (LEFT$ (TIMES, 2)) 

JP=RAD ( (J IX38+FUx, 5) - の 9) 

ЈХ=160+С05 (JP-RAD <. SIXRJ:JY=88+SIN(JP-RAD (.522 XRJ 
JXR=160+COS (JP -RAD <. 5))XRJ:JYR=88+SIN(JP-RAD K. 5) ) ЖК 
LINE (168, 88) - (JX, JY), BSET。 З 

RETURN 

LABEL "OUTLINE" 

СІКСІ Е(160,88),52,4 

CIRCLE (1650,88), 74, 7 

CIRCLE (160 88), 38 

RESTORE "407° ーー タリ 

FOUR 1=-90 То 270 STEF за 


1111 ロ Bi —12 


2 度目 の と き に 読む べき デー タ が な く な っ て し まう の で エラ ー 


за XG=160+C0S (RAD ‹1) > x33: Y5=88+SIN(RAD (1) ) x33 
940 ХО=1&0+С05 (RAD 1) ) ж74: YU #=8S+SIN(CSAD СТ) ) KTS 
950 XP=1 ら 9+ じ OS (RAD (1-5) ) ж30:ҮР=38 +53 IN (RAO (1-5) ) x80 
960 L INE (XG, YG? - (XU. ҮШ), РЅЕТ, ?: IF 1=-70 5070 9Зй 
976 READ РФ, ASIPAINT (ХР, ҮР), HEXTHRS (F$) 

980 NEXT 

990 RETURN 

1008 LABEL "イロ テー タリ 

1010 DATA 99FFg9, ア カ 

10208 DATA 88=FS8088S722, яв" A 

10830 DATA 9 に に こら ロ ロー ニニ ロロ モタ ー イ タダ ドイ 

1040 DATA QAFFFFAEFFFFE, + イロ 

1050 DATA 0055ғгадаағс, жаза) 

1060 DATA 9999FF, ミ トリ 

1070 DATA 559gFF ム GFF ビ 、 ア オオ ミト“ и 

1080 DATA 5508а8аайй55, ミト“ リア オ 

1098 DATA FF9999FF ロ 99 ロ ュ アキ 

1100 DATA FF8888FF22880, アズ ムラサキ 

1110 DATA ЕҒ55й0ОҒҒААЙЙ, 457 = 

1120 DATA FFFFg9, アカ ムラ サキ 


-4аг-- й1111@1й 


410 プロ グラ ム の 構造 こ 
プロ グラ ミン グ の コツ の お 語 
@⑯ プ ログ ラム の 構造 と フロ ー チ ャ ー ト 


これ まで に , いく つか の プロ グラ ム を 組み 立て て きま し だ 。 プ ログ ラム を 1 つ 1 つ の 部 分 に 
つい て , 細か く 分 析 し な が ら 6 作っ て きた わけ で す が , 各部 分 の 働き は よく 理解 で きた こと と 思 
いま す 。 ところが, 組み 上 が っ た プロ グラ ム を 全体 と し て 眺め る と , どこ が どの よう な 働き を 
し て いる の か , 一 見 し た だ け で わか り に く 《 く な っ て いる か も し れ ま せん 。 FFU, GOT0 文 で プロ 
グラ ム の 流れ を 変え て いる と ころ な ど は , どの よう な と き に 分岐 す る の か , 理解 し に くい も の 


И [ 図 4 -32) 


この よう な と き に は , プ ログ ラム の 流れ を 図式 化し て 表わし て お (と , 
後 か ら 手 を 入れ る 場合 な ど に 便利 で す 。 


図式 化 の た め に よく 使わ れる の が 「 フ ロー チャ ー ト (流れ 図 )」 と 呼ば 
れる も の で す 。 も っ と も ゃ 一般 的 な フロ ー チ ャ ー ト は , B] 4 -31 の よう な 記 
号 を 使っ て プロ グラ ム の 流れ を 書き 表わす も の で す 。 

図 の 例 の よう に , これ ら 6 の 記号 の 中 に 主 な 処理 の 内 容 を 記入 し , さら 
に 記号 の 右上 に それ ぞ れ の 処理 に 該当 する 行 番号 を 書い て お く と より わ 
か りや すく な り ま す 。 

パッ ツッコ ユン の ユー ザー が 自分 の プロ グラ ム を 図式 化す る 場合 に は , これ 
ら の 記号 を 厳密 に 使い 分 け な く て は いけ な い , と いう の で は あり ませ ん 。 
誰 で も 何 か の プロ グラ ム を 作ろ うと 考え は じ め だ た と きか ら , 全体 の 流れ 
が 少し ずつ 頭 の 中 で まとまっ て き て いる も の で す 。 を その 全体 の 流れ を , 
この よう な 記号 を 基本 に , わか りや すく 《 ま と め て お け ば よい の で す 。 

ЕСІ, 「 テ レビ 24 時 間 予 約 プ ログ ラム 」 の 大 ま か な 流 れ を フロ ー チ 
ャ ー ト に 書き 表わし て み ま し た ( 図 4 -32)。 こ れ を 見 る か ぎり , KEF 
っ きり し た プロ グラ ム に 見 えま す 。 プ ログ ラム の 流れ と いう の は , フロ ШЕ 
ー チ ャ ー ト に 表わし た と き に , この よう に 上 か ら 下 へ , と いう 一 連 の 流 
れ で ある の が 望ま し い の で す 。 と ころ が , この プロ グラ ム で 一 番 大 き な 
部 分 を 占め て いる 「 ニ ュ ウ リョ ク 」 と い 2 部 分 を 詳細 に フロ ー チ ャ ー ト 化し て みる と , М4-33 
の よ うに , IF 一 GOTO 文 に よ る 流れ の 変化 が , 複雑 に か ら み あい , 見 に くい も の に な っ て いる こ 
と が わか り ま す 。 こ こ で , プロ グラ ム の 構造 に つい て 考え て み ま し ょ う 。 

まず は じ め に , な ぜ こ の よう な プロ グラ ム に な っ て し まう の か を 考え ん て み ま し ょ う 。 た と を 
Ж, 時 , 分 な どの 入力 時 に 不都合 な デー タ の 入力 を る ける 処理 を 後 か ら つ け 足 し , GOTO 文 に よ 
っ て 戻し て いる た め だ , と いう こと を あげ る こと が で きま す 。 こ の GOTO 文 こそ が , プロ グラ ム 
の 流れ を 複雑 に し て いる 原因 な の で す 。 特に この プロ グラ ム の よう に , 大 ま か な 骨 組 を 作っ て 
か ら 必 要 な 補助 的 処理 を 加え て いく と いう 作業 を 何 回 も 繰り 返し て いる と , 最初 の プロ グラ ム 
が どん な に すっ きり し た も の で あっ た と し て も , 最後 に びき あがっ た だ とき は 複雑 な も の に な っ 
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(94-31) フロ ー チ ャ ー ト に 使わ れる 記号 


名 
Ўт + | 開始 や 終了 , 停止 な ど , 流れ の 端 部 を 
表わす 


START 


|: 
| 


£ 作 業 | コン ピュ ー タ て 処理 する 以前 の デー タ 
1 әке ЧҮҮ 
り 使わ な い ) 


手 操作 入力 | 機器 を 操作 し て 入力 を 行 な , 普通 は 
キー ボー ド か ら の 入力 を 示す 


CRT デ ィ ス プレ イ や ラン プ に よる 出 
カ 表 示 を 表わす 


FN | 磁気 テー プ | ファ イル の 入出 力 な ど テ ー プ を 使っ た | KA 
処理 を 表わす 


水 ミ ミ み ご デュ コン ここ こさ と テニ こら y と どこ ニン ニニ マジ ニニ トー ニラ ーー ネッ さこ ーー ニン ニニ ジン ニニ ニニ ュ ェ ここ づ ここ ここ ここ こら デマ こそ ここ 


| 


ж 

я 
Or 

Е 
ж 
الا‎ 


Кокежан sas 


< > 準 備 | 初期 設定 や 初期 化 を 表わす өт 
lJ 


条件 判断 に よる 分 岐 な ど を 表わす 


са 
со 
зі 


に ーー ンー マニーo き さらら みこ ロー ラー セン ここ ミ に こる こび に を で マドン ニッ ニュ ゴー コモ ーー この らら ここ こち ご ニコ マラ こと マー ンー の プー で さら で ちる ニテ ニー ュー ュー テン つこ e ら mee な や だ な 


[| 1 処 理 あら ゆる 内 部 処理 を 表わす 
デー タリ ー ド 


' ү = Е ЕДИ УА. 
(218 7 


в. 


トニ ーー 
әр 
ҳа; 
ol 


プリ ンタ に よっ て 出力 され る 書類 を 表 ` 
д 


あら ゆる 入出 力 操作 を 一 般 的 に 表わす 


оњ 
ж 


> 
Е 
+ 


ッ ピ ー デ ィ ス ク に よる 入出 力 


磁気 ディ スク 主 に フロ БУ 
RÊ 客 
су |& 53) | フロ ー チ ャ ー ト が 大 き ( な り 9 分 割 き れ | L A 
š る 時 に 分 割 す る 点 に 使い , 中 に つなが 
り が わか る よう 記号 を 入れ る 


て し まい ます 。 

合 度 は ,「 時 計 」 の プロ グラ ム を フロ ー チ ャ ー ト に 表わし て み ま し ょ う ( 図 4 -34)。 こ ちら は, 
大 変 す っ きり と し た , 上 か ら 下 へ の 流れ を 持っ た 構造 に な っ て いま す 。 

各 サ プルー チン の 内 容 を 見 て も, GOT0O 文 は 全体 で わずか 3 カ所 し か あり ませ ん 。 そ の うち の 
1 つ は , 全体 と し て の 流れ を 繰り 返す た め の も の で あり , 他 の 2 つ は 不要 な 処理 を 飛び 越す た 


め に 使わ れ て いる だ け で す 。 
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(E 4-33) LABEL 
ニュ ウリ ョ ク ” 
入力 用 
画面 表示 


最終 デー タ 
番号 EIF= ニ 1ー 1 


RETURN 


(04 4 -34) 
「 時 計 」 の フロ ー チ ャ ー ト 


スク リー ン 切 換 


01111101 == 


“7 
4 


D 


” 


構造 化 プ ログ ラミ ング の テク ニッ ク 

この ょ うに , 流れ や 処理 内 容 の 理解 し や すい プロ グラ ム 作 り の だ た だ ため に ,「 構 造 化 プロ グラ ミン 
グ 」 と いう 技法 が あり ます 。 構造 化 ア ログ ラミ ング は , GOTO 文 を 原則 と し て 使わ な いと いう の 
が 基本 的 な 考え 方 に な っ て いま す 。 それ で は , どの よう な 考え 方 に 基づい て プロ グラ ム を 組み 
立て る の で し ょ うか 。 

構造 化 ア ログ ラミ ング で は , プロ グラ ム を 組み 立て る 基本 構造 し し て , 3 つ に 分 類 し て いま 
す 。 ま ず を その 1 つ は , 図 4- 35 の よう に , 処理 の 流れ が 次 々 と 下 に 向け て 進ん で い 〈「 連 接 」 の 
構造 で す 。 プ ログ ラム の 流れ は , この よう に な る の が 最も 望ま し い 構 造 で す 。 


(5814-35) 連接 構造 (Kl 4-36) 選択 構造 


2 つ 目 は , 何 か の 条件 に よっ て , 処理 が いく つか に 分 か れる 「 選 択 」 構 造 で す (44-36). 
この 場合 , どちら の 処理 を 選択 し て も, 再び 1 つの 流れ に 戻り , 全体 と し て は や は り 上 か ら 6 下 
へ の 流れ を 保っ て いま す 。 こ れ は , IF CHW) THEN 〔 処 理 1 ELSE 〔 処 理 2 L と いう 流れ に 対 
応 し て いま す 。ON て GOTO や ON て GOSUB に よ る 2 つ 以 上 の 分 岐 も , この 考え 方 と し て と ら え る 
こと が で きま す 。 

3 つ 目 は , 「 繰 り 返 し 」 構 造 で す 。「 時 計 」, の プロ グラ ム で は , いつ まで も 繰り 返し を 続け る 
「 無 限 シ ルー プ 」 に な っ て いま す が , 多く の 場合 , 何 か の 条件 に よっ て 繰り 返し か ら 抜 け 出す こ 
と が 必要 で す 。 これ ら の 繰り 返し か ら の 抜け 出し 方 に つい て は , 図 4 -37 の よう な 3 と お り の 方 
法 が 考え られ ます 。 (1) の ょ うな 方 法 は , ルー プ の 構造 と し て は 不 自 然 で す 。 特 に , 内 部 で の 変 
数 の 処理 が , 理解 し に くく な り ま す 。(2) と (3) は , ルー プ の 先頭 と 終わ り で 判断 する 方 法 で す 。 
(2) の 形式 は , X 1 の BASIC で 言え ば , REPEAT て UNTIL が 対応 し ます 。 こ の 構造 は どの よう な 
場合 で も 1 回 は ルー プ の 中 を 通ら な けれ ば な り ま せん 。(3) の 形 は , も っ と も 合理 的 と 考え られ 
る 方 法 で す 。 な ぜ な ら , 必要 が な けれ ば 一 度 も ルー プ を 通過 し な いで すむ か ら で す 。 これ は , 
WHILE て WEND に 対応 し ます 。 
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【 図 4 -37〕 
(DIF GOTO 型 の ルー プ 脱 出 (2)КЕРЕАТ ~ UNTIL 型 の 脱出 (3③)WHILE 一 WEND 型 の 脱出 


@ プ ログ ラム の コマ ギレ 


以上 3 つの 基本 構造 を 守っ て 作ら れ た プロ グラ ム は , 大 変 す っ きり と し た 構造 を 持ち , 理解 
し や すい も の に な る は ず で す 。 こ の よう な プロ グラ ム の 構造 化 に 有効 な の が , プロ グラ ム の モ 
ジュ ー ル 化 で す 。 モ ジュ ー ル 化 と いう の は , いく つか の 部 分 品 に 分 けた まとまり か ら 全 体 を 作 
る と いう 意味 で す 。 

「 時 計 」 の プロ グラ ム で は , それ ぞ れ の サブ ルー チン が 独立 し た 働き を 持っ て お り , これ ら を 
部 分 品 と 呼ぶ こと が で きま す 。 サ プ ブルー チン を 順に 呼び 出し て いく こと に よっ て , 上 か ら 下 へ 
と 流れ る , 連接 構造 (全体 と し て 繰り 返す ) に な っ て いま す 。 プ ログ ラム を モジ ュー ル 化 する 
こと の 利点 は いく つか あり ます , その 1 つ は , モジ ュー ル ご と の 機能 を テス ト す る こと が で き 
る と いう 点 で す 。 こ れ ま で に も , GOTO 文 を 使っ て モジ ュー ル の テス ト を し て きま し た 。 こ れ 
ら 5 の プロ グラ ム が る ら に 大 きく な っ て ,10 倍 も の 長 る の プ ログ ラム を 作る 場合 も 考え て みる と , 
モジ ュー ル 化 の 利点 が よく わか り ま す 。 だ た いて い の 人 は , その よう な 長い プロ グラ ム を 作ろ うぅ 5 
と 考え た と し て も , 一 体 ど こ か ら 6 手 を つけ て いい の か わか ら な く な っ て し まう と 思い ます 。 こ 
の よう な と き に , 1 つ 1 つ の 処理 を そ ジ ュー ル 化 し て 作っ て い 〈 L, 各 モ ジュ ー ル 自体 は 短い 
も の に な り ま すか ら , 少し ずつ まとめ な が ら 作 っ て いく こと が で きま す 。 こ の よう に し て 組み 
上 げ ら れ た プロ グラ ム は , 各 モ ジュ ー ル ご と の 動作 チェ ッ ク が 完全 に 行なわ れ て いれ ば , 全体 
と し て 大 き な 誤 り は 発生 し ませ ん 。 だ ら 6 だ ら と 長 〈 作 られ た プロ グラ ム で は , 誤り を 発見 し よ 
うと し て も むず か し く な り ま す 。 全体 を 通し て 誤り も る が る な けれ ば な ら な いか ら で す 。 モジ 
ュー ル 化 され だ た プログ ラム で は , その 処理 を 行なっ て いる モジ ュー ル ご と に 再 チ ェ ッ ク す る こ 
と で 原因 を 追究 で きま す 。 

一 般 に は , プロ グラ ム を 作り は じ め る と き に は , まず その プロ グラ ム の 中 心 と な る 部 分 や , 
も っ と も むず か し そう な 部 分 か ら 作 っ て いき , 最後 に 細か い 部 分 を 手直し し て いく , と いう 順 
に な る こと が 多い よう で す 。 実際 に は , この 細か い 部 分 の 手直し な ど が , デバ ッ グ と 並ん で 最 
ТЕ 81111111 —127— 


も 手間 と 時 間 の か か る 作業 に な り , 結果 的 に 能率 の 悪い プロ グラ ム 作 り に な っ て し まう わけ で 
す 。 構 造 化 ア ログ ラミ ング で は モジ ュー ル 化 を 行なう こと で , 全体 の 流れ に 即 し た 合理 的 な プ 
ログ ラム 作り を 行なう こと が で きま す 。 

この 本 で は , BASIC の 解説 書 と いう ぅ 性 格 上 , 掲載 きれ て いる プロ グラ ム す べ て が この 構造 化 
プロ グラ ミン グ の 手法 に よっ て 作ら れ て いる わけ で は あり ませ ん が , 少な くん と も モジ ュー ル 化 
の 方 法 は 極力 取り 入れ て 作っ て あり ます 。 これから 自分 で プロ グラ ム 作 り に 挑戦 し よう と する 
気持 ち を 持っ て いる 人 は ,「GOTO 文 を 原則 と し て 使わ か な かい 」「 プ ログ ラム を モジ ュー ル 化 する 」 
「 上 か ら 下 へ の 流れ を 尊重 し , この 流れ に 即 し た プロ グラ ム 作 り 」 の 3 つ を 基本 と し た , 構造 
化 プ デ ロ グ ラミ ング の 方 法 も お すす めし ます 。 
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@ ア スキ ー コ ー ド の 秘密 


プロ グラ ミン グ か ら 少 し 離れ て , X 1 の 持っ て いる いろ いろ な 文字 や 記号 を 見 て な きま しょ 
Jo 

これ まで は , アル ファ ベッ ト と カタ カナ , それ に 数 字 を 主 な 記号 と し て 使っ て きま し た が , 
X1 は 他 に も いろ いろ な 文字 や 記号 を 持っ て いま す 。 前 に 少し だ け 説 明 し まし た が , 漢字 も い 
くつ か あり ます し , 「〒」 マ ー ク も 用 意 る きれ て いま す 。 ま ず X 1 が どん な 文字 を 持っ て いる か , 
全部 の 文字 を 面 画 に 表示 る きせ て み ま し ょ 2 う 。 

FOR 1-32 ТО 255 : PRINT CHR$(|) :: NEXT 

巻末 の アス キー コー ド 表 を 見 て て だ さい 。 こ こ に は , X 1 が 持っ て いる すべ て の 記号 や 文字 
が あり ます 。 文字 の それ ぞ れ に , いわ ば 背 番号 の よう な も の が つい て いる こと は , 前 に お 話し 
ま し た 。 文字 や 記号 は , アス キー コー ド の 32 か ら 255 に 入っ て いる こと が 表 か ら わ か り ま す 。 つ 
まり 文字 や 記号 は , 32 か ら 6255 の 背 番号 を 持っ て いる と いう こと で す 。 こ れ 以 下 の コ ー ド に は 8, 
コン トロ ー ル コー ド が 入っ て いま す 。 た な くる ん ある コン トロ ー ル コー ド を 表 4- 4 に まとめ て み 
まし だ 。 

試し に [ CTRL | キー を 押し な が ら [G] キ ー を 押し て み ま し ょ う 。 表 に も ある よう に ベル が 鳴り 
ます 。 [CTRL + [し | を 押す と , 画面 の 表示 を 消去 し ます 。 つ まり , CLS 文 と 同じ 働き を し ます 。 
プロ グラ ム 中 で PRINT CHR$(12) ま た は PRINT CHR$(&HOC) と す る Е, [CTRL ]+[L] の 働き を し 
ます 。 表 か ら , 革 の 出力 コー ド は, 16 進 数 で 0 C, 10 進 数 で 12 で ある こと が わか り ま す 。 

次 の 例 は , 指定 され た 以外 の デー タ が 入力 され た と き に , 再 入力 を る させ る プロ グラ ム で す 。 
[CTRL |+ [EE に 相当 する 命令 を , CHR$(5) (カー ツル か ら 6 後 を 1 行 消す ) を 使っ て , 前 に 入力 し 
た デー タ が 画面 上 に 残ら な いよ うに し て いま す 。 コ ント ロー ルコ ユ コード を プロ グラ ム 中 で 使う と , 
と て も 便利 な こと が わか り ま すね 。 


@⑱ グ ラフ ィ ッ ク 記 号 い ろ い ろ 


X 1 の 持つ 文字 の うち , キー 上 に 表示 きれ て いな いも の は , [GRAPH| キ ー を 併せ て 押す こと に 
ょ っ て 表示 きれ ます 。 どの キー に どの 文字 が 割り 当て られ て いる か は , 図 4 -38 の グラ フィ ッ ク 
キー 配置 図 を 見 な い 限 り わ か り ま せん 。 

[CTRL | と [GRAPH] キ ー を いっ し ょ に 押し な が ら メ イン キー を 押す と, カー ソル の 位置 は 動か 
T, を の 位置 で 押さ る れ た キー に 対応 し た グラ フィ ッ ク 文 字 が 次 々 表示 る れ ま す 。 希望 の 文字 記 
号 を 見 つけ 出し た と ころ で , [CTRL] キ ー を 戻し , [GRAPH] キ ー と その キー を 併せ て 押す と 希望 
の グラ フィ ッ ク 文 字 を 入力 する こと が で きま す 。 表 の 枠 を 書く と き に よく 使う 記号 は , テン キ 
ー の 部 分 に 集め られ て いま すか ら , これ も 覚え て おく と よい で し ょ う 。 
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表 4-4 コン トロ ー ル コー ド 表 


CTRL] + л ш 内 容 


@ 0 0 

A ま た は a | 01 INST モ ー ド の 設定 ・ 解 除 を する 

B b 0 2 カー ソル を 1 ワー ド 分 左 へ 戻す 

C 0 3 実行 を 停止 する SHIFT + ВКЕАК 

D 0 4 スク リー ン モ ー ド な ど と を 初期 状態 に する INIT 

E 0 5 カー ソル か ら 右 を 行 の 終わ り ま で 消す 

F 0 6 カー ソル を 1 ワー ド 分 右 へ 進め る 

G 0 7 ベル を 鳴らす 

H 08 文字 を 抹消 する DEL 

| i 09 09 | 水平 TAB( ス ペー ス 出 力 ) の 実行 HTAB 

J j ОА 10 ライ ン フ ィ ー ド を する 

K k | 0B 11 ホー ム ボ ポジション へ カー ソル を 移動 する HOME 

L | ос 12 | 画面 を 消去 する CLR 

M 00 13 キャ リッ ジリ ター ン を する 

N ОЕ 14 カー ソル 行か ら 上 を 上 方 向 へ スク ロー ル す る 

0 ОЕ 15 7 下 を 下方 向 へ 7 

P 1 0 

Q 11 17 一 時 停止 を 解除 する 

R 12 18 空白 を 挿入 する INS 

S 1 3 19 一 時 停止 を する BREAK 

T 1 4 20 | 水平 TAB を 設定 する 

U 1 5 

V 1 6 

W 17 23 | 次 の 行 と 結合 する 

X 1 8 

Y 1 9 25 | 水平 TAB を 抹消 する 

7 1 A 26 カー ソル 以下 の 画面 を すべ て クリ ア す る 

( 1 В 

\ 1 € 28 カー ソル を 右 へ 移動 = 

) 10 29 カー ソル を 左 ム 移動 < 

A 1E 30 カー ソル を 上 へ 移動 1 

- 1F 31 カー ソル を 下 へ 移動 | 
画面 の 背景 色 を 黒 に する COLOR 
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人 @ 文 字 が 反転 


X 1 で は , これ ら の 文字 の 表現 方 法 を いく つか 指定 する こと が で きま す 。 

23, と テン キー の 円 を 一 緒 に 押し て み ま し ょ う 。 こ れ だ け で は 画面 に は 行 の 変化 
も 見 られ ませ ん 。 しかし, キー ボー ド か ら 何 文字 か 打ち 込ん で みる と, それ ら の 文字 が 白い 四 
角 の 中 に 黒く 抜け た よう な 形 で 表示 され ます 。 こ れ を , 文字 の 反転 モー ド と いい ます 。 こ の 状 
態 で [CLR | を 押す か [CTRL | +[L] を 押す と, 画面 全体 が 反転 し て し まい ます 。 

画面 に 何 も 表示 きれ て いな い 状 態 と いう の は , 空白 の 文字 【CHR$(32)〕 で 画面 全部 が 埋め つ 
くき され た 状態 し いう こと も で きま す 。 反転 モー ド で は , この 空白 も 反転 し て いま す 。 で すか ら , 
反転 モー ド で [CLR] を 押す と 画面 全体 が 白く な り ま す 。 反転 モー ド を 元 に 戻す に は , も う 一 度 
[CTRL + Н2# 123. 

これ ら の 操作 を プロ グラ ム 中 で 行なう に は , CREV 命 令 を 使い ます 。 CREV は , キャ ラク タリ ズバ 
ー ス の 略 で , 後に 1 を つけ る と 反転 モー ド に , 0 を つけ る か 省略 する と ノー マル モー ド に 戻り 
ます 。 COLOR 文 で 文字 に 色 指 定 を し て ある 場合 , 色 の 反転 は 表 4- 5 の よう に , 補色 関係 に な り 
ます 。 

表 4-5 補色 関係 


青 < > Ж 
赤 < + УУ 
£ «< — + 2 
В = > g 


反転 文字 は , 画面 表示 の 一 部 分 に アク セント を つけ だ いと き な ど に 使用 する と 効果 的 で す 。 
次 の 【 プ ログ ラム 4 -19〕 を 入力 し て みて 反転 の 様子 も 見 て むき ましょ 5 
[プロ グラ ム 4-19) 

18 FOR C=8 TO 7 

2@ COLOR с 

за СЗЕМІ:РЕІМТ "А": 

48 CREVƏ:PRINT"A" 

së NEXT 


人 @ 文 字 が 点 減 


今度 は , と テン キー の [*] を 一 緒 に 押し て か ら 今 と 同じ よう な 操作 を 試し て み ま し ょ 
5, 今度 は 打ち 込ん だ 文字 が 反転 モー ド と ノー マル モー ド を 交互 に 繰り 返し て いま す 。 こ れ を 
点 減 モ ー ド と いい ます 。 色 の 関係 は , 反転 モー ド と 同じ で , 補色 関係 に な っ て いま す 。 

プロ グラ ム 中 で 使う ステ ー ト メン ト は , CFLASH で す 。 オ ペラ ンド に 書く パラ メー タ は CREV と 
同様 , 1 で 点滅 モー ド に , 0 また は 省略 で ノー マル モー ド に 戻り ます 。 点 減 モ ー ド の 場合 も [LCLR | 
を 押す と 画面 全体 が 点滅 状態 に な り ま す 。CFLASH に よる 点滅 は , カー ツル の 点 減 と 反対 の タイ 
ミン グ に な り ま す 。 カ ー ソ ツル の 一 が つい て いる と き は CFLASH で 書い た 文字 は ノー マル に 表示 る 
れる と いう こと で す 。 INKEY$(1) と 組み 合わ せ て , 入力 すべ で べき デー タ を わか りや すく 表示 し た の 
が 【 プ ログ ラム 4-20) СТ. 
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(プロ グラ ム 4-20) 
18 LOCATE та, :2 


20 РКІМТ "SELECT 1 ог "1: СЕГавн 1:РЕІМТ "2" 
38 LOCATE 19, 12:REPEAT:AS=INKEY# (1) UNTIL A$="1" DR АФ= "2" 


48 СЕ! азн 

点 減 モ ー ド の 文字 表示 は , 反転 モー ド よ り も さら に 目立ち ます か ら , 画面 に 説明 文 を 表示 す 
る と き や , 特に 注意 を 要する 表示 部 分 に 使う と きわ め て 効果 的 で す 。 ま だ た, ブロ グラ ム の 流れ 
», 長い 計算 を 行なっ て いる 間 や , デー タ の 整理 を し て いる 間 な ど 普 通 は 画面 表示 に 変化 を 与 
える こと が で きず 単調 に な り が ち で す 。 こ の よう な と き に 点滅 文字 び , メッセージ を 出し て お ぉ 
け ば , 画面 に 変化 を 持た せる こと が で きま すか ら , みな さん も 使っ て みて くだ さい 。 
[プロ グラ ム 4-21) 

28 „ ОСАТЕВ, 12 

30 СЕ. абн: СО. 0846: PRINT リ 「 ケ イサ ンチ ュ ウ の ратрат 7792999 n 


40 СЕ азн 
50 FOR Ізі 70 1808 


68 S=S+I 

та NEXT 

за ОСАТЕЙ, 1::С-. аба: СП! Ся5: ORINT" ZAE 75A," 
98 PRINTI カラ 1000 үз”) TOIA "381 "Уда" 


人 @ 文 字 が 大 きく な っ た ! 


プロ グラ ム の 説明 文 な ど を 表示 する と き に , タイ トル に 大 き な 文 字 を 使え る と 便利 で す 。X 1 
Са, これ まで 使っ て きた 標準 サイ ズ の 文字 の 他 に , 3 種類 の 大 きる で 文字 を 表示 する こと が 
で きる の で す 。 

文字 の サイ ズ の 指定 は , CSIZE( キ ャ ラク タ サ イズ の 略 ) と いう 命令 で 決め ます 。CSIZE の オペ 
ラン ド に は , 026 3 まで の 数 値 を 書き ます 。 

0 を 指定 する と ノー マル サイ ズ の 文字 に な り ま す 。 

1 で は 文字 の 縦 の 長き る が 2 倍 , つま り 2 行 に わた っ て 縦長 の 文字 表示 され ます 。 

2 で は 横幅 が 2 倍 の 文字 た なり ます 。 

3 を 指定 する と 縦 , 横 と も 2 倍 の 大 き な 文 字 に な り ま す 。 

これ ら の 拡大 文字 を 表示 する に は , 普通 の PRINT 文 で は な く , PRINT#0 を 使い ます 。 も ちろ ん 
COLOR 指 定 や CREV, CFLASH も 組み 合わ せ て 使う こと も で きま す 。 た だ し , 使い 方 に いく 6 ら か の 
制約 が あり ます 。 画面 を シレ イア ウト する と き は , 次 に あげ る 制約 に 注意 し て くだ さい 。 

1. CSIZE 1 の と き , 文字 の 表示 が 2 行 に わた な り ま す が , その 2 行 に ノー マル サイ ズ の 文字 や CSIZE 

2 で 指定 し た 横長 の 文字 を 書い て は いけ ませ ん 。CSIZE 1 で 指定 し た 文字 が , 正常 に 表示 る 
れ な くく な り ま す 。 
2. CSIZE 2 を 指定 し た と き に は , ノー マル 文字 が 同じ 行 に あっ て も か まい ませ ん 。 カー ツル 位 
置 の 座標 は 必ず 偶数 に し な けれ ば な り ま せん 。 
3. CSIZE 3 の と き , 2 文字 X 2 行文 の 大 きる に な り ま す 。 つ まり 縦 2 行 に わ だ っ て 表示 る れる 
の で す が , その 2 行 の 中 に ノー マル 文字 と CSIZE 2 で 指定 する 横 の 文字 びあ っ て は いけ ませ 
A. ЗК, カー ツル 位置 の X 座 標 は 偶数 で な いと 正常 に 表示 きれ な く な り ま す 。 
CSIZE で 文字 の 大 きる を 変え て 表示 を 行なっ た 場合 必ず CSIZE 0, また は CSIZE で 元 に 戻 
18080101 —123— 


Û 
un 


し て お きま す 。 元 に 戻す の を 忘れ る と 後 の 表示 に 異常 が 起き る こと が あり ます か ら 注 意 し 


ска, 


めん か だ お めも ーー 


プロ グラ ム を 止め を り 動 ガ した り … 

ま と ま つ だ プロ ブラ ム を 組み 上 げ て いざ 走ら せ て みだら , エラ ー で 止ま り は し な いも の の , 
実行 され だ 結果 が な ん と な こぐ お が しい, と いう こと が よ ぐ あり ます 。 こ の よう な と き に , プロ 
ダグラム の 途中 で 一 度 止め て , 変数 の 値 を 調べ て みる と , 比較 的 簡単 に 原因 を みつ ける こと が で 
きま す 。 ご この よう な と き に 便利 な の が ガ STOP 文 で す 。 

変数 の 内 容 が 変化 する 部 分 の 前 後に STOP 文 を 入れ て お ぐ と , "Break in 行 番号 」 と 表 
示し て プロ ブラム の 実行 は 止ま り ま す 。 そこ で , PRINT 文 を グイ レク トモ ー ド で 実行 し , 変数 
の 値 を 調べ る こと が で きま す 。 プロ ブラ ム の 実行 を 再開 する に は CONT を 使い ます 。 CONT 
文 を 実行 する と , STOP 文 の あつ な 次 の ステ ー ト メン ト ガ ら プ ロブ ラム の 実行 を 再開 しま す 。 
マル チ ス テー トメ ント の 間 に STOP を お いた だ 場合 , 次 の ステ ー ト メン ト ガ ら 再 開 さ せる こと が 
で き , まだ , STOP 文 で プロ プラム が 止ま つた と き に 変数 の 内 容 変更 も で きま す 。 

CONT 文 は , [SHIFT] + [BREAK] で プロ プラ ム を 止め と とき に も 使用 する こと が ガ で きま す 。 
だ だ し , プロ ブラム の 修正 な ご を 行 な つ だ 場合 に は , CONT で 実行 を 再開 で き な い こと も あり の 
ます 。 X1 で は , CONT 文 で プロ プラ ム の 再開 が で きる と き に は , 「OkK.。 と いう よう に ピリ オ 
ドガ つい て 表示 され ます 。 再開 で き な い と き に は , Око と だ け 表示 され ます 。 

ご の よう なお 万 法 で , 変数 の 内 容 を 確か め 不 合理 な 点 を 見 つけ 出し た 場合 に は , その 変数 を 変 
化 さ きせ て いる 部 分 を 探し て 調べ る こと に な り ま す 。 この と き に は SEARCH 文 を 使う と 便利 で 
す 。 だ と えば , A と いう 変数 の 値 が お けし いと き に , 

SEARCH “A=” 
と する と , 「A=」 の つい だ 文 の ある 行 が すべ て 表示 され , プロ ブラ ム 全 体 を 通じ て 能率 よ ぐ 調 
べ る こと が で きま す 。 まだ SEARCH 文 で は , どの よう な 文字 列 で も 探す こと が で きま す 。 だ 
と えば 「LABEL」 を 探す こと で , サブ ルー チン の は じ ま る 行 番号 を 調べ る こと も で きま す 。 
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5-1 デー タ の 整理 こ 記 入 〔 作 表 」 


これ まで X 1 の いろ いろ な 機能 と , BASIC の 基礎 を みな る ん は 学ん で きま し た 。 BASIC に 対 
する 理解 も 進ん どこ と で し ょ うし , これ か ら は ビジ ホス , ゲー ム , 学習 な どの プロ グラ ム を 見 
な が ら , 具体 的 な プロ グラ ム の 組み 方 を 見 て いく こと に し まし ょ 5. 


X 1 を ビジ ネス に 使 お うと 考え ん て いる 方 も 少な く な いで し ょ う 。 

ビジ ネス 用 の プロ グラ ム で 行なう 作業 の 中 心 は , 統計 と 分 析 . を そし て デー タ の 整理 で す 。 を 
し て 忘れ て は な ら な い の が , 入力 る され た デー タ を きれ いな 表 に まとめ る 作業 で す 。 い くら 6 正 し 
《 く 入力 きれ た デー タ で も , それ を うま く 利 用 で きる よう に 表示 (出力 ) され な けれ ば , デー タ 
と し て の 価値 は 半減 し て し まい ます 。 

ここ で は , 小さき な レ スト ラン を モデ ル に し て , 1 日 の 売上 げ 量 か ら 6, 売上 げ 金 額 を 計算 する 
プロ グラ ム 例 を 考え て み ま し ょ う 。 デ ー タ の 入力 方 法 と 作 表 の 方 法 を 理解 する よう に 有 努め て 
ам, ХІ を ビジ ネス に 使う つも り は な いよ ーー 一 と いう 人 も , 作 表 や デー タ 入 力 の 技法 は い 
ろ い ろ と 役に立ち ます か ら , レス トラ ン の 経営 者 に な っ た つも り で 読ん で みて くだ さい 。 


@ レ スト ラン 「 エ ックス ワン 」 


小さき な レス トラ ン 「 エ ックス ワン 」 の メニ ュー を 見 て み ま し ょ う 。 小 る な 小 る き な レ スト ラン 
で す の で , メニ ュー の 内 容 は あま り 多 く あ り ま せん が , 作 表 や デー タ 入 力 の 技法 の 練習 で すか 
5, この で らい で いい で し ょ う 。 


を. と - て と 
。 カ レー ライ ス 450 円 و‎ 755 
. エビ フラ イ 850 円 
。 ハ ンバーグ 800 円 


スパ ゲッ ティ 500 円 
. カニ グラ タン 960 円 
. ポー クソ テー 1000 円 
ミッ クス フラ イ 880 円 

各 商 品 の 単価 が わか っ て いま すか ら , 1 日 
の 売上 げ 数 量 を 入力 し ,。 それ ぞ れ の 単価 を か 
けた も の を 合計 すれ ば , その 日 の 総 売上 げ 金 
額 が 計算 で きま す 。 

品名 と 単価 は DATA 文 で 用 意 し て お きま す 。 
お な じみ に な っ た FORNEXT と READ 文 で て これら の デー タ を 読み 込む よ うに し ます 。10 行 一 80 行 
の サブ ルー チン が , DATA 文 か ら デ ー タ を 読み 込む 部 分 で す 。 

単価 を 変更 し た と き な ど , DATA 文 の 中 を 修正 する だ け で 簡単 に 対応 で きま す 。 


sa о ло A OO N н 
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[プロ グラ ム 5-1〕 


10 WIDTH80:SCREENB8, 0:С1.54 
28 GOSUB "7° -з" ü 

за GOSUB "カス " 

48 GOSUB "カク ニン " 

58 60506 "ヒョウ " 

る 9 END 

78 LABEL "5 -я" 

80 RESTORESSƏ:FOR Ісі TO 7 

Фа READ MENU$ <I), NEDAN (1) : NEXT 


100 RETURN 
110 LABEL "カス " 
128 PRINT "ヒン メイ タン カ カス" “ 


130 PRINTSTRING$ (30, "—") : СОМВОГЕ, 23 

140 FOR Ісі TO 7 

150 (ОСАТЕӨ, 1+1:РРІМТ USING "8, "I MENUSI); 
160 PRINT USING "HHH, ### А": МЕОАМСІ), 

170 _ОСАТЕ28, 1+1: INPUT"", KAZ <Т) 

180 NEXT 

190 RETURN 

200 LABEL "カク ニッ" 

218 FOR Ісі TO 7 

228 LOCATEQ, 1+1:РК1МТ USING"& "sSMENLIS (1) 5 
230 PRINT USING "HHR, ### В" МЕРАМ CID, 

248 LOCATE27, I+1:PRINT КА2 (1) 

250 NEXT 

268 LOCATEQG,.12:PRINT "テイ セイ ñ yUQZh? CYAN) "š 

278 YN$="YyNn" 

280 КЕРЕАТ: АФ= ІМКЕҮФ (1) : АМ= INSTR СҮМФ, Аъ) :LINTIL ANK >8 
290 IF АМ>2 THEN RETURN 

300 _ОСАТЕ28, 2: INPUT"", DUMMY 

310 FOR Y=2 TO 8 

320 КА2<Ү-12-УА( {SCANS (27, Ү,520 

338 NEXT 

340 GOTO 21808 

350 LABEL "Ба?" 

360 и:отнеа: с: с 

370 LOCATEQ, 8:CSIZE2:PRINT88" 21 y" са?" 

380 PRINT" АА Q 
390 PRINT” ヒン メイ + л ОХ" + MR 1 キラ フラ が а ч 
дай бф =” ——— V  pyrPTKA — [ 
410 TTL=8@ 

420 FOR Ізі То 7 

430 PRINTBO* 


440 PRINT" 1"; USING" "MENUS CI) f 
450 PRINTTAB 11) 5": "{ TAB (14J USING "#B, HHH" {КАД СІ) { 
468 PRINTTAB (2Q0); "І"; ТАБ (23) {05 ING "#, HHH" NEDAN СІ) 4 


470 PRINTTAB (29): " i" TAB (32) FUSING "¥, нн. ВЕН": KAZ СІ) KNEOAN (I) { 
488 PRINTTAB (42); "i" 

498 TTL=TTL+KAZ (12 KNEDAN (I) 

500 NEXT 

518 PRINT BO 

520 PRINT " 22274 "(TAB (31) USING "HH, ###, 
###" TTL; 

530 PRINTTAB 142) 1"  *=KPRINT® ーーーーー デ ーー デー デーーー デ ーー デーーーーーーーーーーーー 
ات‎ 9 

540 RETURN 

550 бата カレ ー ラ イス , 450, IE" フラ イ 。 250, пол“ -2° , 800, スロ ケッ ティ 。 SOQ, NI? ラタン 。 
960, R -7VF-, 1000, ミッ クス フラ イ 。 8808 


@ 書 式 指定 


それ ぞ れ の 数 量 を 入力 する の が ,「 カ ズ 」 と いう ラベ ル 名 で まとめ られ た 110 行 一 190 行 の サブ 
59 10900918991 ー ま 8 アー 


ルー チン で す 。 こ こ で は 、 タ イト ル 部 分 を 誤操作 に よっ て 消し て し まう こと を 防ぐ だ め に CONSOLE 
文 を 使っ て いま す 。 入力 方 法 は , FOR て NEXT 文 を 使っ て , まず DATA 文 か ら 6 読み 出し た 品名 を 表 
示し , 次 に それ ぞ れ の 商品 の 売上 げ 数 量 を 入力 する よう に し て あり ます 。 入力 方 法 を わか りや 
すい も の に する と いう の も , プロ グラ ム を 考え る うえ で 大 切な こと で す 。 プ ログ ラム を 作っ た だ 
人 だ けが 操作 する わけ で は あり ませ ん か ら , デー タ の 入力 ルー チン の 作り 方 に 工夫 を し な けれ 
ば な り ま せん 。 

150 行 で は まず 品名 を 表示 し ます が , ここ で は PRINT USING と い 2 書式 指定 を 利用 し て いま す 。 
書式 指定 と いう の は , 画面 に 文字 や 記号 な ど を 表示 る せる と き の 形 式 の 指定 で す 。USING 
“& "を 使う と , LFIORISHOL OHTE, «тоа  СОКЪТ Клей 
こと に な り ま す 。 こ の 場合 , ХТО рмарое 2 СОКА) ЬЬ БОМЖИ 
無視 され , 短けれ ば 足り な い 分 スペ ー ス が 足る きれ ます 。150 行 の 場合 は , 多 と 妥 の 間 , スペ ー ス 
は 8 文字 分 で すか ら , &O 2 文字 を 加え た 10 文 字 分 どけ を 表示 する こと に な り ま す 。 

2301713, それ ぞ れ の 商品 の 単価 を 表示 する 部 分 で す 。 こ こ で も PRINT USING が 使わ れ て いま 
72“ ###, HEH”? は , 桁 数 6 桁 で 3 桁 目 に カン マ を 入れ る 指定 で す 。 人 金額 等 を 表示 する 
場合 , 帳簿 で も よく 使わ れる よう に 3 桁 ご と に カン マ を 入れ る と 読み や すく な り ま す 。 これら 
の # や & を 書式 指定 子 と 呼び ます 。 書式 指定 の 種類 を 次 に 挙げ て お きま し ょ う 。 


1. T# 対象 : 数 値 

表示 し た い 最 大 桁 数 を 指定 する も る の で す 。 表示 したい 希望 の 数 だ け # を 並べ ます 。 桁 数 
が 指定 より 小さ い 場 合 に は , 文字 列 の 前 に 足り な い 分 だ け ス ペー ス が つけ 加え られ , 右 づ 
めで 表示 る され ます 。 こ の よう に し て お く 〈《 t, だ が だ 数値 を 入力 し た だ け で も , 位 取 り の 桁 が 
摘 う と いう わけ で す 。 桁 数 が 指定 より も 多い と エラ ー が 出 て スト ッ プ し ます 。 

2.「.」 対象 : 数 値 [ 例 ] ##. ## 

# と 組み 合わ せ て , 小数 点 位置 と 小数 点 以下 の 桁 数 を 指定 し ます 。 小 数 点 の 位置 を そろ 
えて 右 づ めで 表示 し ます 。 こ の と き , 端数 は 四捨五入 る され て 表示 る れ ま す 。 た だ ただし, ДЕ 
五 入る れる の は 表示 の うえ だ け で すか ら , 数 値 を 計算 に 使う 場合 に は 注意 し な けれ ば な り 
ませ ん 。 

4. Г), Ta 対象 : 数 値 |ИП+##, ##- 

正負 の 符号 を つけ る 位置 を 指定 し ます 。# の 後に 「 二 」「 一 」 の 記号 あつ ける と , 数 値 が 
表示 され る と き に も を その 後に 符号 が つき ます 。# の 前 に 置く と , 普通 と 同じ く , 数 値 の 前 

に 記号 が つき ます 。 

5.「※*※」 対象 : 数 値 [ 例 ] * * HH 

「※*」 は 必ず 2 つ 必 要 で す 。 数値 の 桁 数 が 足り な いと き に , その 余白 部 分 も 「*」 で 埋 
め る こと が で きま す 。 プ リン タ を 使っ て 打ち 出し た も の を 帳簿 な ど に 収め る と き に , ВС 
数 字 を 書き か を えら れる こと が な いよ うに し よう と いう わけ で す 。 

6. Түү, 対象 : 数値 
数 値 の 前 に ぎ \( 円 マー ク ) を つけ ます 。 
1. TKK¥ 対象 数 値 


г 


0 
I: 


-цез- тявитата 
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5 と 6 を 組み 合わ せ た も の で , \ を つけ て きら に , 足り な い 部 分 も * で 埋め ます 。 
8. ГААллі 対象 : MÊ 
数 値 を 指定 形式 で 表示 し ます 。 小数 点 の 位置 を 決め れ ば , それ に 応じ た 指数 部 を つけ て 
表示 し ます 。 
9.「!」 対象 : 文 字 列 
文字 列 の 最初 の 1 文字 び どけ を 表示 し ます 。 
10.「 一 」 対象 数値, 文字 列 
「 一 」 の 後に 書か れ た 書式 指定 子 を 指定 子 と し て で は な く 文 字 と し て 表示 し ます 。「#」 
を 指定 子 と し て で は な く , 記号 と し て 使い た いと き な ど に 使い ます 。 
11. 単位 な ど 
書式 指定 子 に 含ま れ て いな い 文 字 や 記号 な ら , その まま 画面 に 表示 させ る こと が で きま 
す 。X 1 に は 「 年 」「 月 」「 日 」 な どの 9 文字 が グラ フィ ッ ク 記 号 と し て 用 意 き れ て いま す 
が , これ を 単位 と し て 表示 る せる こと も で きま す 。 ま だ, スペ ー ス も 単位 の 1 つと し て 使 
うこ と が で きま す 。 


信 売 上 げ 計 算 プ ログ ラム 


この プロ グラ ム の 160 行 で は , 11 の 方 法 で , 数 字 の 後に 1 文字 を あけ て 「 円 」 を 表示 る せ て い 
ます 。170 行 の INPUT 文 の す で 後 の スル スト リン グ が , その 空白 と なり ます 。 ま た だ た, ヌル スト リ 
ング の 後 の 「,」 に よっ て , デー タ 入 力 を うな が す 「?」 マ ー ク が 画面 に 表示 る れる の を 防い で 
いま す 。 

ここ まで 7 つの 商品 それ ぞ れ の 売上 げ 数 が 入力 され る こと に な り ま す 。 

デー タ の 入力 が すべ で て 正しく 〈 行なわ れ ば , プロ グラ ム の 中 に 特別 な 工夫 も す る 必要 は あり ま 
せん が , 実際 に プロ グラ ム を 使う こと に な る と , 入力 の 間違い や キー ボー ド の 押し 間違い に よ 
っ て 誤っ た デー タ が 入っ て し まう こと が , し ば し ば 起こ り ま す 。 そ の た め に , 入力 され た デー 
タ を 画面 で 再 確認 きせ , 誤 り が あれ ば を の 時 点 で 修正 で きる よう に し た の が ,LABEL “カク ニン " 
の 部 分 で す 。 

まず , 入力 に 使っ た タイ トル は その まま に し て , FORCNEXT を 使っ て 品名 , 単価 , 数 と 表示 
し て お きま す 。 次 に ,「 テ イセ イ ^ アリ マス カ ? 」 と いう メッ セー ジ を 表示 し て 確認 を 要求 
し ます 。 確認 に は INKEY$ を 使い ます 。 YEN の 大 文字 , 小文字 どちら で も 正しい 判断 が 行なわ 
れる よう , INSTR 関 数 を 使い , この 値 に よっ て 比較 し て いま す 。 

INSTR 関 数 と いう の は , 文字 列 の 中 に 含ま れる ある 特定 の 文字 列 の 位置 を みつ け て くれ る も の 
で す 。 ちょ っ と 横道 に を れ ま す が , た と えば 次 の プロ グラ ム を 入力 し て くだ きい 。 

18 аве "уа 172572" 
20 PRINT INSTR «ав. “І9"9 

RUN を する と , 7 と いう 数 字 が 表示 る れ ま す 。 これ は ,『 レ スト ラン エッ クス ワン 』」 と いう 
文字 列 の 頭 か ら 7 番目 の 『 エ ッ 』 と いう 文字 列 が は じ ま り ます よ と いう 意味 に な り ま す 。 仮 に 
20 行 を INSTR (A$ ウミ") と する と , 結果 は 「0」 と 表示 きれ ます 。 つ まり , さがし て いる 々 る 文 
字 列 が 元 の 文字 列 に な い 場 合 に は , 関数 の 値 は 「 0 」 と いう わけ で す 。INSTR の 書式 は , 
ев 1880810811 —139— 


| INSTR( 開 始 位置 , 文字 列 1 , 文字 列 2) | 
と な り , この 20 行 の 例 の よう に 開始 位置 を 省略 する と 1 か ら る が し は じ め る こと に な り ま す 。 


レス トラ ン の プロ グラ ム に 戻り まし ょ 2 う 。 

訂正 が ある 場合 , 300 行 の LOCATE 文 と INPUT 文 に よっ て , カー ツル が 1 番目 の 品目 の 数 の 数 値 
の 上 に 表示 る され ま す 。 カー ソル キー を 使っ て , 誤 デ ー タ を 書き か えて いき ます 。 こ の と き に カ 
ー ソ ツル の あっ た と ころ の 文字 が 変数 DUMMY$ に 入り ます が , こ の 変数 は を の 名 の と お り ダ ミ 
ー で , 特に 使用 きれ ませ ん 。 訂正 され た デー タ は , 310 行 か ら の FOR て NEXT に よっ て , 画面 か ら 
読み 込ま れ ま す 。SCRN$ 関数 は , 


SCRN$ (X, Y, Y。 Н 


ЕГ етене 
指定 する 画面 上 の 座標 の 位置 


と いう 書き 方 を し ます 。 こ の 関数 は , X, Y で 指定 され た 画面 上 の 座標 位置 (LOCATE 文 
と 同じ 指定 の し か た です) か ら , N 文 字 分 を 読ん で 変数 に 代入 する 働き を し ます 。 こ こ で は , 
FOR て NEXT に よっ て , 27 文 字 目 か ら 書 か れ た 数字 を 次 々 に 読み 込ん で , 配列 変数 KAZ( 1 ) СК 
入 し 直し て いま す 。 し だ たがっ て , 変数 KAZ の 中 に は カー ソル を 動か し て 書き か えら れ た だ 正しい デ 
ー タ が 置き か ん られ る わけ で す 。 訂正 が すべ て 終わ る と, 290 行 の 判断 に よっ て メイ ン ル ー チ ン 
へ 戻り ます 。 


@ プ ログ ラム で 作 表 


3501725, 表 を 書く 部 分 で す 。 こ の よう な 表 は , 横 に 長く な り が ち で すか ら , 80 字 モー ド と 
し て いま す 。130 行 で 指定 きれ て いた だ CONSOLE は , この 表示 モー ド の 切り か え に よ っ て 解除 きれ 
ます 。 

まず, 表 の タイ トル を 横 2 倍 文字 で 表示 きせ , ЖС, 項目 名 の 書き 込ま れる 部 分 を 表示 きる せま 
す 。 こ の よう な 部 分 を ,「 ヘ ッ ダ ー」 と 呼び ます 。 いわば 表 の 見 出し で す 。 

た と え ぇ ば 会 社 の 会 計 処理 や 在庫 管理 な どの 業務 で , プリ ンタ を 使っ て も っ と 長い 表 を 作る よ 
うな と き に は , プ リン タ 用 紙 の ペー ジ が 改 ま る た びに この ヘッ ダー を 書く 必要 が あり ます か ら 。, 
ヘッ ダー を 書く 〈 部 分 だ け を サブ ルー チン と し て まとめ て お むく 方 法 も よく 〈 使 われ ます 。 ま た 表 の 
横 の 仕切 線 は , 1 つの 種類 し か 使わ な い の で , ここ で は 1 つの 文字 列 変数 BO$ に 代入 し て 繰り 
返し 使っ て いま す 。 後 は , FOR て NEXT 文 を 使っ て , 次 々 に 項目 を 書い て いき ます 。 

この と き に , LOCATE を まっ た だ く 使 わ ず , すべ て TAB (п) を 使っ て いま す が , これ は , プリ 
ンタ を 使っ て 表 の 出力 を 行なう こと を 考え て の こと で す 。 つま り , プリ ンタ に 出力 する と き は , 
LOCATE の 命令 を 使う こと が で きま せん か ら , 縦 方 向 は 改行 に よる 送り だ け に 頼り 9, 横 方 向 は TAB 
(n) に よっ て 指定 し ます 。 

440 一 530 行 の PRINT を LPRINT に 直せ ば , プリ ンタ で 打ち 出す こと が で きる よう に な り ま す 。 


—149— тава тяй вс 
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@⑱@ プ リン タ を 使う と 


表 5- 1 は , プ リン タ を 使っ て 打ち 出し 
だ た も の で す 。 (実際は 画面 表示 と は 違っ て , 
縦 の 線 が つなが っ て いま せん )。 こ れ は プ 
リン タ て 改行 きれ る と き の 移 動 量 が , |Ң 
面 表示 より も 大 きい た め に 起こ り ま す 。 | ハン バー グ 
また , CSIZE に よる 文字 サイ ズ の 変更 は で | スパ ゲッ ティ 
きま せん 。 カー グラ タン 

プリ ンタ へ 出力 する 場合 いろ ん な コ | ポー クソ テー 
ント ロー ルコ ー ド が 用 意 き れ て いま すか 


5, これ を 使う と よい で し ょ う 。 198,050 
[プロ グラ ム 5-2 〕 の 中 に 示し た の が 


プリ ンタ コントロール コー ド で す 。 


ーー 


〔 プ ログ ラム 5 - 2〕 


370 LOCATE9,。9:CSTZE2IPR INT 村 9" ウリ アァ ケー ヒョウ リ 


380 PRINT" ーー ы 


390 PRINT"| ヒン メイ 1 Лл 2° | Зоя) | キラ フカ サク 1" 
ê e asp ae ll U E — сый 
410 тт. <й 


429 FOR 1-1 70 7 

438 РВІМТВОФ 

440 PRINT"1"3USING "8. "S MENUS C1) $ 

450 PRINTTAB (112; "1"; TAB (14) ;USING"#, ### "j KAZ CI) { 

460 PRINTTAB (20); "1"; TAB (23) $USING"#; #HH" ; NEDAN (1) $ 

470 PRINTTAB (29); "|"; ТАВ (32) 3US TING "#, HHH, HHH" $ KAZ C1) XNEDAN (I); 
480 PRINTTAB (42); "|" 

490 TTL=TTL+KAZ (1) KXNEDAN (1) 

500 NEXT 

510 PRINT BOS 

520 PRINT "| 3" イコ | | "$ TAB C31) SUS ING "HH, ###, 
HHH"S TTL; 

530 PRINTTAB (42); " | ":PRINT" 
وو‎ 

540 RETURN 

550 DATA カレ ー ラ イス , 450, тЕ“ 77A, 850, поп“ -72° , 800, AN° 7“ YF 4, 500, カ ニク“ 597, 
768, А“ ー ク ソテー。1.999, ミッ クス フラ イ , 880 


作 表 を 行なう 場合 , TAB 関 数 と PRINT USING は 密接 な 関係 持っ て いま す 。 TAB 関 数 で 決め ら 
れ た 位置 か 6 桁 数 に か か わら ず , スペ ー ス を 加え て 表示 きれ る か ら で す 。 

た と えば , 「 タ ンカ 」 の 欄 を も う 少 し 幅 を 広く し た いと き な ど は , ヘッ ダー は も ちろ ん , この 
プロ グラ ム で は 450 行 以降 の TAB 関 数 で 指定 する 値 を すべ て 変 た な けれ ば な り ま せん 。 し た が っ 
て この よう な 表 を 作る と き に は, 先 に 方 眼 紙 な が ど で レ イア ウト を 考え て か 6 プロ グラ ム 作 り に 
と りか か っ た 方 が 能率 的 で す 。 ま た 表 を 書き な が ら 人 金額 や 総合 計 の 計算 を 行なっ て いる 点 に も 
注意 し て くだ きい 。 

из, この 【〔 プ ログ ラム 5-2〕 は 後述 の グラ フ 作 成 の と ころ で 使い ま は すか ら , 必ず カセ ッ ト 
テー ブ に SAVE し て お いて くだ さい 。 
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све グラ フ を 描く (] r BI5 


@ グ ラフ の 基本 は 


ビジ ネス に 限ら ず あ ら ゆ る 分 野 で , いろ いろ な デー タ を 説明 する 方 法 と し て , グラ フ が 使わ 
れ ま す 。 た くさ ん 並ん だ 数 字 よ り も グラ フ の 方 が 直接 視覚 に うっ た えま すし , デー タ の 全体 を 
把握 する こと も た や すく 《 な り ま す 。 
X 1 の 優れ た グラ フィ ッ ク 機 能 を 利用 し て , グラ フ の 描き 方 を みて いき まし ょ 2 う 。 
グラ フ と ひと こと で 言っ て も , きま ざま な 種類 が あり ます 。 ま ず 頭 に 浮か ぶ の が 棒グラフ で 
し ょ う 。 こ こ で は 身近 な 棒グラフ を 描く こと か ら は じ め る こと に し ます 。 
グラ フ を 描く に は , デー タ が 必要 で す (と いう より も デー タ を グラ フ 化 する と いう の が 本 来 
の 考え 方 で す )。 ま ず デ ー タ の 入力 を 行なう 部 分 も 作り ます (プロ グラ ム 5-3)。 
[プロ グラ ム 5-3〕 
тай LA3EL" INPUT" 
118 MIDTH 88:SCREEN80, й:с!: 5а 
120 LOCATE, 6: EK ビリ イリ テー -3 スウ (260 зе)", DA 
130 IF DA<6 OR Пазгй THEN LOCATE, Q:PRINTCHRS (5) :GOTO128 
148 DIM DA(DA?) 
150 FOR I=1 TODA 
160 PRINT "Nö. S$ THE INPUT, DASI) 
170 NEXT 
180 RETURN 
いく つの デー タ を 扱う か を 最初 に 入力 し て , この 数 に よっ て 配列 宣言 を 行ない ます 。 そ し て , 
お な じみ の FOR<NEXT を 使っ て 配列 変数 の 中 に デー タ を 入力 し て いき ます 。 
X 1 で は リタ ー ン キー だ け を 押す と , 変数 の 内 容 は それ まで の まま に な り ま す 。 こ れ を 利用 
LT, デー タ の 値 が 0 の と き に は , わざ わざ 0 キー を 押 き な いで 済ま せる こと も で きま す 。 
ここ で は , 最初 に 決め て お か ね ば な ら な い デ ー タ 数 に 対し て DA と いう 変数 を 使っ て いま す 。 
566, 配列 変数 し し て DA (п) も 使っ て いま す 。 普通 の 変数 DA と 配列 変数 DA (n) と は 
まっ た く 〈 別 の も の と し て 扱わ れる か ら 6 心配 する こと は あり ませ ん 。 こ こま で の プロ グラ ム を 見 
て み ま し ょ う 。 


KU, キャ ラク タ を 使っ て グラ フ を 描い て み ま す 【〔 プ ログ ラム 5-4〕。 
[プロ グラ ム 5 -4〕 

190 LABEL "СЗАРН" 

200 CLS 

210 FOR Ізі ТО ба 

220 FOR Ј=1 TO DACII 


238 PRINT" е"; 
248 NEXT:PRINT 
254 NEXT 
240 RETURN 

FOR て CNEXT を 二 重 に し て , 内 側 の ルー プ で デー タ の 数 だ け 「@」 を 横 に 並べ て いき ます 。 セス パパ 
レー タ と し て “:” を 使っ て いる の で “"@ "は 間 を あけ ず に 並び ます 。240 行 の PRINT 文 は , 1 
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つの デー タ に つい て の グラ フ 化 が 終わ っ た ら , 改行 きせ る た め の も の で す 。 こ の PRINT 文 が な い 
と 「@」 が すべ て つなが っ て し まう こと に な り ま す 。 

この よう な 形 の グラ フ を 描く と き に 便利 な 関数 に STRING$ が あり ます 。 
[STRING$(n, "文字 " ) ま た は 、STRING$(n. 数 値 ) | 
と 書き ます 。 n で 指定 し て お いた 数 だ け 文 字 を 書き 並べ ます 。 数 値 を な いた 場合 は アス キー コ 
ー ド と みな し て , 対応 する 文字 を 書き 並べ ます 。 こ れ を 使っ て 作り 変え た た の が 次 の 〔 プ ログ ラ 
A5-5) で す 。 


【 プ ログ ラム 5-5〕 [画面 5- 1 
198 LABEL"GRAPH" крави 
208 CLS " 
210 FOR Ісі TO па " 


220 PRINT STRINGS (DA CI), "e") š НИ не по 
238 NEXT " инни 
240 RETURN " 


инини 
ттинининини 
この よう に する と , FOR^NEXT 文 を 二 重 に 使わ な く て も 済み ます か ら , プロ グラ ム が 短く な 
り ま すし , プログ ラム の 実行 スピ ー ド も 速く な り ま す 。 


@ 目 盛り を つけ る 


この グラ フ で す と, デー タ の 数 値 が 小さき いと き は ょ よい の で す が , 表示 きせ る 数 が 画面 の 横幅 
で ある 80 字 を 越え る と グラ フ が 2 行 に わた っ て し まい , 都合 が 悪く な り ま す 。 ま た , デー タ の 
単位 が 千 や 万 の 場合 は , 大 変 面倒 な 操作 が 必要 に な り ま すし , 表示 の 精度 も 粗い も の に な っ て 
し まい ます 。 グラ フィ ッ ク を 使え ば , 横 は 640 ド ッ ト を 使う こと が で きま すか ら , か な り 精 密 な 
グラ フ を 描く こと が で きま す 。 ЖС, どの よう な 単位 の デー タ で も うま く グ ラフ 表示 を 行なえ 
る よう に プロ グラ ム を 工夫 し て み ま し ょ う 。 

「@」 を 並べ て 描い た グラ フ で は 目盛 り ち も つい て いま せん で し た が , 今度 は は じ め か ら 目 盛り 
や 単位 も 考え て プロ グラ ム を 作っ て いく こと に し ます 。 目 盛り を きれ い に 表示 る せる に は , Ф 
ず 最 大 目盛 り 9 (フル スケ ー ル ) を いく つ に する か を 決め な く て は な り ま せん 。 普通 . デー タ の 
最大 の 値 よ り 大 きい 値 で , きり の よい も の を フル スケ ー ル の 値 に し ます 。 た と えば , デー タ の 
最大 の 値 が 160 な ら フ ルス ケー ル を 200 と し ,800 な ら フ ルス ケー ル を 1000 と し ます 。 こ の た め に , 

ー タ の 中 で も っ と も 値 の 大 きい も の を る が し だ きる な けれ ば な り ま せん 。 こ の 操作 を 行なう の 
が , サブ ルー チン "МАХ" C+, 変数 MAX (最初 は 0 ) Е, 配列 に 入っ て いる デー タ を 順次 比較 
し て いき , MAX よ り 大 きい も の が あれ ば それ を 変数 MAX の 中 に 収め ます 。 最終 的 に は , 最大 
の 値 の デー タ が 変数 MAX に 代入 る られ る こと に な り ま す (プロ グラ ム 5-6)。 


〔【 プ ログ ラム 5-6〕 


190 LABEL "мах" 

200 FOR Ісі ТО ПА 

210 IF ОА‹1) мах THEN MAX=DA (1) 
220 NEXT 

238 RETURN 


この MAX の 値 が た と えば 160 な ら , フル スケ ー ル を 200 と し ます 。 も し も っ と 数 値 が 大 きか っ 
Hb, た と えば MAX の 値 が 2800 な ら , フル スケ ー ル は 3000 に な る わけ で す 。 MAX の 数 値 の 上 
GF 15061111 -143- 


か ら 2 桁 目 を 切り 上 げた も の を フル スケ ー ル の 値 と すれ ば よい わけ で す 。 こ の 具体 的 な 方 法 を 
考え て み ま し ょ う 。 ま ず MAX の 値 の 単位 が いく つ に な っ て いる か を 調べ ます 。 

た だ たとえば, MAX が 1600 の 場合 , 

1600=1.6х10° 
と 書き 直せ ます か ら , 単位 は 10? ニ 1000 で ある こと が わか り ま す 。 こ の よう な 形式 を 指数 形式 と 
呼び , 1.6 の 部 分 を 仮数 部 , 10? の 部 分 を 指数 部 と 呼び ます 。 上 か ら 6 2 桁 目 を 切り 上 げ る に は , 2 
の 仮数 部 の 数 の 整数 部 を 取り 出し , これ に 1 を 加え れ ば よい わけ で す 。 こ の 操作 を 行なっ て い 
る の が サブ ルー チン "SCALE" の 250 行 と 260 行 で す (プロ グラ ム 5-7)。 

[プロ グラ ム 5 -7 〕 


248 LABEL "SCAL E " 

250 LM=LENCSTRE (MAX) ) -2 

260 FUL= (INT (MAX7/10^LM+1) XI LM 
270 SCAL=199/FUL 

280 LINE (8, 199) - (539, 1799), РЗЕТ, 7 
290 LINE (24, 0) - (24, 179) 

300 ЗТРЕРШСУ (ЕШ ж:й“ (-1М+ 122 

318 FOR 1=0 TO FUL+1 STEP STP 


зга IF I MOD 5ӘТРжій-й THEN 6X=3? ELSE GX=2? 
338 LINE (24, 1797 -1жВ СА 2 - (GX, 1927 - PKSCAC 2, РЗЕТ, 7 
340 NEXT 


359 RETURN 
368 LABEL "GRAPH" 


250 行 で は 指数 部 の 値 に 相当 する も の を 求め て いま す 。 
符号 桁 
1600 
ЕТТЕ 
— 1600 
12 
文字 数 か ら 6 2 を 引い た も の (ここ で は 3) が 単位 の べき 数 に な る 。 
1600-1.6 10° 

260 行 で は 指数 形式 に 直し た MAX の 数 値 の 整数 部 に 1 を 加え , さら に 指数 部 を か け て 実際 の 
フル スケ ー ル と する 値 を 求め て いま す 。 

STR$ は 数 値 を 文字 列 に 変換 する 関数 で ある こと は も う ご 存 じ で し ょ う 。INT 関 数 は 数 値 の 値 を 
越え を な い 最大 の 整数 を 与え る 働き を し ます 。 数値 が 正 の 数 で あれ ば 小数 点 以 下 を 切り 捨て る こ 
と に な り ま すし , 負 の 数 で あれ ば 小数 点 以 下 を 切り 上 げ る こと に な り ま す 。 ま た だ LEN は 文字 列 
の 長き を 調べ る 関数 で す 。 

正 の 数 の 場合 。 符号 桁 の 「 十 」 が 省略 され て いま すか ら , 文字 数 は 見 か け よ りゃ も 1 文字 分 多 
《 な る こと に 注意 し て くだ きい 。 MAX の 値 が 1600 な 6, 文字 列 に 直し た と き の 値 は , 符号 桁 の 
分 を 加え た 5 文字 と な り ま す 。 

縦 の 棒グラフ を 考え た 場合 , 横 の 棒グラフ と 異な っ て 最大 199 ド ッ ト し か 使え ませ ん 。 СОК 
ッ ト 数 と フル スケ ー ル の 値 か ら 目 盛り の つけ 方 を 決め て いき ます 。 フ ルス ケー ル が 2000 の 場合 , 
199/2000 ほ 0.1 と なり ます か ら , 1 ドッ ト が 10 を 表わす こと に な り ま す 。 これら を 計算 し て , 
目盛 り を 描く の が , サブ ルー チン 「SCALE」 の 270 行 か ら の 部 分 で す 。300 行 の は 整数 の 割 算 


—144— 1881868808 ей 


5 ビジ ネス セク レタ リーX 1 


の 記号 で す 。 [ (85-1) 
いろ いろ 面倒 な 計算 を 行なっ て いま すか ら 5, 実際 | 
の 数 値 を あて は め な が ら , どの よう な 計算 が 行なわ [ 
れ て いる の か 考え て みて 〈 く だるい 。 

ここ まで で , グラ フ の 目盛 り が 描け まし た 。 今度 | 
は 実際 に この 目盛 り に ある よう に グラ フ を 描く 方 法 
で す 。 グ ラフ の 表示 を 図 5-1 の よう に する こと を 考 
えま す 。 デ ー タ の 数 は , 毎回 入力 する よう に し て あ 
り ま し た か ら , この 棒 の 幅 も デー タ の 数 に よっ て 割り 出し , 画面 内 に バラ ンス よく 収まる よう 
に し ます 。 画面 の 横幅 は 640 ド ッ ト で す が , 左 の 方 に は 目盛 り が あり ます か ら 実 際 に グラ フ を 描 
〈《 の は を の 右側 の 600 ド ッ ト 分 と し ます 。 棒 の 左端 の 位置 は . この 600 ド ッ ト を デー タ 数 で 割っ 
た も の と すれ ば , デー タ が いく つ に な っ て も 画面 内 に きち ん と 収まっ て きま す 。 を そし て 棒 の 幅 
も この 数 値 より 小 き くし て お け ば , 隣り の 棒 に 重なる こと も な くう まく 表示 で きる は ず で す 。 
これ ら を 計算 する の が , サブ ルー チン 「GRAPH」 の 370 行 で す (プロ グラ ム 5-8)。 
[プロ グラ ム 5-8〕 


368 LABEL "GRAPH" 

378 GSTEP=6007/DA: GW=GSTEFx, 8 

380 FOR Ісі То DA 

390 LINE ¢-GSTEP+GSTEPXI +48, 199) - (-65ТЕР + В5ТЕРжТ +61+48, 199-ра СІ 
)xSCAL >, РЅЕТ, 7. В 

418 NEXT 

420 RETURN 


変数 GSTEP に 描き は じ め の ステ ッ プ が 入り , 棒 の 幅 は これ に 0.8 を か けた も の と し まし た 。 > 
ー タ 数 が 多く な れ ば GSTEP の 値 は 小さ きく な り , GW の 値 も 小さ きく な り ま すか ら , デー タタ 数 に か 
か わら ず , 同じ 比率 で グラ フ を 描く こと が で きる よう に な り ま す 。 

実際 の グラ フ の 棒 は , グラ フィ ッ ク の LINE 文 の B モ ー ド で 描く よう に し ます 。 サ プ ブルー チン 
「SCALE」 で デー タ の 値 の 1 に 対し て ドッ ト 数 が いく つ に な る か を 求め て , この 値 を 変数 SCALE 
に 代入 し て いま す 。 変数 SCALE の 値 に を れ ぞ れ の デー タ を か け て や れ ば , 実際 の 画面 上 の 棒 の 
高き を 求め る こと が で きま す 。 そして, 下 を そろ えた グラ フ と する た め に は , 画面 の 縦 い っ ぱ 
い の 値 で ある 199 か ら こ の 長 る を 引い た も の が グラ フ の 上 端 し な る よう に すれ ば よい わけ で す 。 
これ ら 6 の 処理 を 行なっ て いる の が , 380 行 か ら の FOR て NEXT ル ー プ で す 。 


る @ グ ラフ に 色づけ 


せっ か くき れい な グラ フ が 描け た だ の で すか ら , 色 を つけ る こと に し まし ょ う 。PAINT 文 を 使え 
ば よい の で す が , 基本 色 は 黒 を の ぞ く と 7 色 し か あり ませ ん 。 デ ー タ が 7 つ 以 上 の 場合 , 同じ 
色 を 繰り 返し て 使わ な けれ ば な り ま せん 。 変 数 IT に 色 コ ュー ド を 代入 し て お く こ と に する と , I 
の 値 が 。 8 の と き は 色 コ ー ド 1 を 指定 し , 9 の と き に は 色 ユ コード 2 を 指定 する こと に すれ ば よ 
いわ け で す 。 つ まり , I を 7 で 割っ た と き の あ まり の 値 を や 色 コ ー ド と すれ ば よい の で す 。 こ の 
ょ うな 場合 に は , MOD 関 数 を 使い ます (プロ グラ ム 5-9)。 


#1 іййійейі -145- 


[プロ グラ ム 5-9〕 


10 RESTORE 4348 

88 FOR Ісі TO 8:READ СО! 5, 0%:С01% (1) -НЕХСНеЗ (COLS) 
30 NEXT 

360 LABEL "GRAPH" 

370 GSTEP=&98/DA:GN=GSTEPK, 8 

380 FOR 151 TO DA 

390 LINE (-В5ТЕР + 05 ТЕРЖТ +48, 199) - (-65ТЕР + ВЗТЕРжт +61+48, 199-DA (I 
) KSCAL? PSET, 7, B 

400 PAINT (-GSTEP+GSTEPXI +49, 198). I MOD 7.7 

410 NEXT 

420 RETURN 


PAINT 文 を 使っ て 色 を つけ る と 画面 上 で 見 る 限り , 大 変 き れい な グラ フ が 描け り ま す 。 し か し , 
プリ ンタ を 使っ て 画面 を を その まま 紙 の 上 に 打ち 出し て も 色 は 再現 で きま せん 。 プ リン タ を 使う 
こと を 重点 に 考え れ ば , 色 を つけ る より も 斜線 や シマ 模様 に し て お いた 方 が よい で し ょ 5o 

これ に は タイ リン グ ペ イン ト を 使い ます 。 次 の プロ グラ ム で は 8 つの パタ ー ン の デー タ を 430 
行か ら 用 意 し て なおき, ブログ ラム の 最初 で 配列 変数 COL$ (8) に 代入 し て いま す 。 こ れ を , や 
は り MOD を 使う 方 法 で 順に ペイ ント に 使い ます 。 実際 に プリ ンタ で コピ ー し た 例 も あわ せ て の 


せ て お きま し た 。 


430 DATA888888444444222222111111,2 

440 рата111111222222444444838888,3 

450 DATAAAAAAASSSSSS, 1 

460 бата111111222222444444222222,4 

478 батаввввв88444444222222,5 

480 DATA888888888888222222222222, 5 

490 Оатасасасайвсасвес, 7 

500 DATA888888888888555555222222222222555555, 8 


以上 の サブ ルー チン を まとめ て , きれ いな 棒グラフ を 描く よう に し た の が 次 の 〔 プ ログ ラム 
5-10) C+, 全体 の 流れ を よく 見 て くだ さい 。 実行 結果 は 画面 5-2 の よう に な り ま す 。 


(815-2) 
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【 プ ログ ラム 5 -10] 


19 
29 


390 
2ж5 
489 
418 
428 
430 
4480 
459 
4 る 9 
470 
480 
498 


RESTORE 430 
FOR Ісі ТО 8: ВЕВО COL ま も,D 凶 :COL ま て 1) =HEXCHR 生 COL Ф) 
NEXT 
GOSUB " INPUT " 
GOSUB "МАХ" 
GOSUB "SCALE " 
GOSUB "GRAPH" 
HCOPY9:iEND 

LABEL" INPUT" 

WIDTH 89:SCREEN9, 8:CLS4 

LOCATEQ, в: INPUT "テー タ スウ (20 77°)", DA 

IF DAKO ок DA>29 THEN LUCATE9。9:PR INTCHR も (5) : GOTO129 
DIM DA (DÁ) 

FOR I=1 TO Da 

PRINT "No. "31; : ТМРИТ"", DA CI) 

NEXT 

RETURN 

LABEL "мах" 

FOR Ісі TO DA 

IF DA は I) >MAX THEN MAX=DA (1) 

NEXT 

RETURN 

LABEL "SCALE" 

LM=LEN (S TR$ (MAX) 2-2 

ЕШ = (INT CMAX ノ 19^LNM+ 1) ) 水 19^LNM 

зса = 1 ウノ FUL 

LINE( 8, 1929) - (639, 199),РЅЕТ, 7 

LINE (24, 8) - (24, 199) 

STP=FUL ¥ (ЕО ж10^ (-LM+1)) 

FOR I=80 TO FUL+1 STEP STP 

IF І MOD STPx10=0 THEN GX=3? ELSE GX=2? 
LINE (24, 199- IXSCAL) - (GX, 199-Іж5Са 2) PSET, 7 

NEXT 

RETURN 

LABEL "GRAPH" 

GSTEP=600/DA:GW=GSTEPx. 8 

FOR I=1 TO DA 

LINE (-GSTEP+GSTEPX1 +48, 199) - (-65ТЕР+65ТЕРжт +би+48, 199-DA (1 

CAL 〉 , PSET, 7, B 

PAINT ‹-65ТЕР+65ТЕРЖІ +49, 198), COL$ XI MOD 8+1),7 
NEXT 

RETURN 

DATA888888444444222222111111, 2 
DATA111111222222444444888888, 3 
DATAAAAAAASSSSSS, 1 
DATA111111222222444444222222, 4 
DATA888888444444222222,5 
DATA888888888888222222222222, ó 
DATAC9C9C99C9C9C。 7 


500 DATA888888888888555555222222222222555555, 8 


ы! 
ü) 


199109011 == фары 


с-ш グラ フ を 描く ( 己 ) 一 円 グラ フ 


952757 を 描く 


それ ぞ れ の デー タ が 占め る 割合 を 知り た いと き に , 非常 に 便利 な の が 「 円 グラ フ 」 で す 。 今 度 
は , この 円 グラ フ を 描い て み ま し ょ 3 う 。 


X 1 に 円 グラ フ を 描か せる の に 必要 な 手順 を 考え て み ま し ょ 2 う 。 

1. デー タ を 入力 する 。 

2. デー タ を 大 きい 順に 並べ さか える 。 

3. すべ て の デー タ の 合計 を 計算 し , 各 デ ー タ が , 合計 に 対し て どの 位 の 比率 (構成 比 ) に 
な っ て いる か を 割り 出す 。 

4, 各 デ ー タ の 構成 比率 か ら , 円 グラ フ に し た と き の 中 心 角 を 計算 する 。 

5. 画面 に グラ フィ ッ ク 表 示す る 。 

この 一 連 の 作業 で 円 グラ フ が 描け ます 。 


まず , デー タ の 入力 に は , 前 に 作っ た 棒グラフ の プロ グラ ム を 一 部 変更 し て 使う こと が で き 
ます 。 円 グラ フ は , あま り た くさ ん の デー タ 数 を 扱う の に は 向き ませ ん か ら , デー タ の 数 を 7 
まで と し ます 。 ま た , 今度 は デー タ の 項目 名 も 入力 で きる よう に し て お きま す 。 グ ラン 化し た 
と き に 項目 名 ちあ わせ て 表示 する よう に し まし た 。 


@ ソ ー ト を すれ ば ? 


円 グラ フ は 構成 比 を 表示 する の に 適し て いま すか ら , 一 般 に は 比率 の 大 きい 順に 表示 を し ま 
す 。 で すか ら , 構成 比 に よる デー タ の 並べ か を 作業 が 必要 に な り ま す 。 並べ か え ぇ 作業 を ソート 
(整列 ) と いい ます 。 ソ ツー ト は , コン ピュ ー タ に 行なわ せる 仕事 の 代表 的 な も の の 1 つ で す 。 
人 間 が 行なう の で あれ ば , 大 変 な 時 間 が か か る 作業 で す が , コン ピュ ー タ は 極め て 短い 時 間 に 
この 作業 を 終え を て くれ ます 。 と は いえ , デー タ 数 


(15-2) 
が と て も 多い と き に は , コン ピュ ー タ と いえ ども 
瞬時 で 仕事 を 終え を る わけ で は あり ませ ん 。 そ の た パプ ブル ソー ト コア ソー ト 
め 作業 の 時 間 を ち お め る た め に , いく つか の ツー MOA сорае 
ト の 方 法 が 考え ら 赤 て きま し だ 。 ПЫ] (ТІЗІПІСІ 


も っ と も 簡単 な 方 法 し し て , バブ ルソー ト (В 
接 交 換 法 ) と コア ソー ト (逐次 決定 法 ) を あげ る 


ШОШ ^ ETI ` oe 
回 回 $ 調べ 


こと が で 。 パ ブル ソート は 。 デー ха BEANE Еу EOF 
で きま む 。 7 ト デー タ の 並び Зе пе ЛЕП mA 
の 隣り 同士 を 比較 し て , 後 の ゃ の が 前 の も の ょ り БАВИО с 5 


大 きい (рам) と き は その 2 つ を 入れ か える , 
-148- 
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と いう こと を 繰り 返し て いく 方 法 で す 。 コ アソ ー ト は , 全体 の 中 で 一 番 大 きい (Хас) デー 
タ を る が し だ し , それ を まず 一 番 最初 に 持っ て きま す 。 そ し て 残り の デー タ の 中 の 一 番 大 きい 
も の を また 前 に 持っ て くる , と いう 方 法 で す 。 バ プ ブル ツー ト と コア ソー ト の 違い は , 図 5-2 を 
見 て いた だ けれ ば わか る こと と 思い ます 。 

ここ で は コア ソート を 利用 し ます 。 プ ログ ラム で は , サブ ルー チン SORT の 部 分 で す 。 プ 
ログ ラム に 即 し て 見 て いき まし ょ う 。 


І1=10+ $, 
TOO. D А (12) 
(3)4)(n)、D A(1) と D A 
(2) か ら 最 後 ま で の デー 
タ を 比較 する 。 
も し DA(n) が D A) 以 
200 FOR I=1 То са-1 下 だ っ た ら 何 も せ ず に 
210 E=I+1 | 次 の デー タ 以 較 を 行 な 
220 FIR J=K ТО DA Ja 
230 IF DACI) >з0а«л) GOTO 256 
240 SWAP DACI). DACI) :54АР KOMS (1), KOME (Ja そう で な けれ ば D А(0) 
250 BEXT の 方 が 大 きい か ら DA 
268 МЕХТ (1) と 入れ か える 。 それ 
に 対応 し て いる 項目 名 


も 当然 入れ か える 。 


次 の デー タ に 対し て 同 
じ 作業 を 行なう 。 


% 


以上 の 作業 に よっ て , 入力 され た デー タ は , 大 きい 順に 整理 され ます 。 


人 @ 構 成 比率 の 計算 


KU, グラ フ を 描く た め の 下 準備 も 兼ね て , デー タ の 構成 比率 の 計 
算 を し ます 。 サ ブル ー チ ン 「STEP」 が この た め の 部 分 で す 。 変数 GKEI (05-3) 
に 代入 る きれ て いる デー タ の 総合 計 で 個々 の デー タ を 割っ て 比率 を 計算 
L, PER (n) と いう 配列 変数 に 代入 し て お きま す 。 

これ で , 円 グラ フ を 作る た め に 必要 な 下 準備 が 整い まし た 。 円 グラ 
フ に する た め の 中 心 角 は , 360 度 に PER( | ) を 掛け た も の に な り ま す 。 
円 グラ フ の 本 体 を 描く ルー チン が , 「 円 GRAPH」 で す 。 外 形 の 円 は , CIRCLE 
文 に よっ て 描い て いま す 。 あ と は , 各 デ ー タ の 比率 か 6, 中 心 角 を 決 

a 三 1 番目 の デー タ の 

め て 半径 の 線 を 描き , 色 を 塗っ て や れ ば よい わけ で す 。 中 心 角 が わか 中 心 角 
れ ば , 前 に 使っ た 円 の 公式 に よっ て , 円 周 上 の 座標 を 計算 する こと が dp ا‎ 
で きま す 。 た だ し , 2 番目 以降 の デー タ に つい て は , それ 以前 の デー c=a+b 
タ の 持つ 中 心 角 に を の デー タ の 中 心 角 を 加え た と き の 護 標 を 求め る 必 2 O 
要 が あり ます ( 図 5-3)。 を 描く 角度 

また , 円 を 描く 公式 で は , 0 度 の 位置 は 画面 上 で 右 の 方 向 で , そこ か ら 右 回 り に 角度 が 増し 
て いき ます か ら , スタ ー ト の 位置 を 上 に する た め の 補 正 も 加え を な けれ ば な り ま せん 。 これら の 
計算 を 行なう の が 400 一 440 行 で す 。 
95 тайй1й1й1 -149- 
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ここ で は PAI と いう 関数 が 使わ れ て いま す 。PAI (х) と する と , 円 周 率 の X 倍 の 値 が 得 ら れ ま 

す 。 た と えば 円 の 円 周 を 求め る 式 は , S= 2 xr (г: 半径 ) で す が , これ を S ニ PAI (2) *R 
と 表わす こと が で きま す 。 グ ラフ ィ ッ クキ ャ ラク タ の ヶ も 円 周 率 と し て 使う こと が で きま す 。PAI 
( 1 ) ニ ァ と いう わけ で す 。 ァ ヶ の 場合 , 後に # を つけ て ヶ # と し て 使う と , 3.141592653589798 と 
し て 使う こと が で きま す 。 BASIC で は 角度 の 単位 は ラジ アン で すか ら , PAI( 2 ) = 2 z ヶ は 角度 で 
360 度 に な り ま す 。 し た が っ て ここ で は , 角度 を ラジ アン に 変換 する こと な く 〈 く 計算 る きれ て いま す 。 
各 デ ー タ の 中 心 角 の 大 きる は , РА! (2) に 構成 比率 RER (п) を 掛け た も の に な り ま す 。 そ し 
て 実際 に 必要 な 0 の 点 か ら 6 の 角度 は , これ に それ 以前 の デー タ を 加え だ た も の と し て 計算 し , B 
列 変数 STP (п) に 代入 きれ ます 。STP (0) に は 一 PAI ( 1 ) / 2 と いう 値 が 代入 し て あり ます 
が , これ は 角度 で 一 90 度 と な り ま す 。1 番目 の デー タ に 対す る 座標 は , 円 の 真 上 の 位置 で ある 一 
90 度 を 基点 と し て 計算 きれ ます 。 ま た , PAINT 文 に よっ て 色 を 塗り は じ め る 位置 は , その 扇形 の 
中 心 角 の 中 央 に な る よう 計算 し て いま す 。 各 デー タ の 区 切り 線 を 描く 位置 は , ОХ, GY に , PAINT 
文 の 塗り は じ め の 位置 は PX (п), РҮ (п) に 代入 され, 450 行 で 線 を 引き , 460 行 で 色 を 塗っ 
て いま す 。 

次 に , それ ぞ れ の 構成 比 を グラ フ に 重ね て 表示 る せま す 。 ま だ, 円 グラ フ を 項目 に 従っ て 色 
を 塗り わけ ます 。 こ れ を サブ ルー チン 「 ハ ン レ イ 」 で 行なっ て いま す 。 書き 込む 位置 は , 扇形 
の 中 央 あたり に し た い の で , PAINT 文 の 塗り は じ め の 位置 と し て 計算 し て ある , PX(n ), PY( n ) 
を 利用 し ます 。 こ こ で は , 画面 を 80 字 モー ド で 使っ て いま すか ら , 文字 は 80 文 字 X25 行 , グラ 
フィ ッ ク は 640X200 ド ッ ト に な っ て いま す 。 1 文字 は 8X 8 ドッ ト で すか ら , ЕНЕ, Z 
ラフ ィ ッ ク 座 標 を 8 で 割っ た も の が , 文字 の 表示 位置 と な り ま す ( 図 5-4 )。 ド ッ ト 表 示 で の 
座標 位置 を 示す PX (n), PY (n) を 8 で 割っ た 値 を 整数 化し た 値 を LOCATE 文 の パラ メー タ と 
し て 使用 すれ ば よい わけ で す 。 こ うし て 表示 る れる 文字 の バッ ク を 黒 に する と 文字 も 読み や す 
《 な り ま す 。 こ の 文字 の 位置 を 示す 変数 MLOCX, MLOCY の 値 を 8 倍 し て も う 一 度 グ ラフ ィ ッ ク 
座標 に 戻し て か ら LINE 文 の BF モ ー ド を 使用 し て いま す 。 


(815-3) 


(045-4) 
グラ フィ ッ ク 座 標 て は 
160,96 


LOCATE 20,12 


1 文字 は 8X8 ド ッ ト 


また , 画面 の 右側 に は 小さ な 長方形 を 並べ て , 円 グラ フ を 塗り わけ た 色 と 同 じ 色 を 塗っ て お き 
ます 。 こ の 隣り に 項目 名 と デー タ の 数 値 を 表示 し まし た 。 

棒グラフ の と き と し と 同じ よう に , プリ ンタ に よっ て コピ ー を 取る に は , タイ リン グ ペ イン ト に 
ょ っ て 模様 塗り を 行なっ た 方 が よい こと は いう まで も あり ませ ん 。 

—{®@@— 18818118 2 
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この ブログ ラム は 汎用 性 が あり ます か ら , カセ モッ ト テ ー プ に 記録 し て 保存 し て ぢ な く と よい で 
し ょ う (プロ グラ ム 5 -11) 。 実 行 結果 は 画面 5 - 3 の よう に な り ま す 。 
【 プ ログ ラム 5 -11] 


19 INIT 

20 GOSUB "INPUT" 

за GOSUB "SORT" 

49 GOSUB "STEP" 

50 GOSUB "HGRAPH" 

る 9 GOSUB "ハン レイ " 

79 END 

80 LABEL "INPUT" 

98 WIDTH 88:SCREEN 0, 8:CLS 4 

100 LOCATE й, 8: INPUT "7*-9 スウ (7 77°)", DA 
110 IF DA<@ OR DA>7 THEN LOCATE 68, Й:РБІМТ CHRS(5):GOTO 188 
120 DIM DA (DA?) 

130 FOR I=1 TO DA 

140 LOCATE 0, I:PRINT "Мо. "31; : INPUT "17#7 メイ "| KOMS (1) 
150 LOCATE 20, I: INPUT "カス 2° ",DACI) 

160 GKEI=GKEI+DA(I) 

179 NEXT 

180 RETURN 

190 LABEL "SORT" 

гай FOR Ісі TO DA-1 

210 K=I+1 

220 FOR J=K ТО DA 


230 IF DACI) >=рА<Ј) GOTO 250 

240 SWAP DACI), DACI) SWAP КОМФ (1), KOMS (J) 
250 NEXT 

260 NEXT 

270 RETURN 


280 LABEL "STEP" 

290 FOR 1=1 TO ОА 

300 PER X(I)=DA<I)ZGKEI 
319 NEXT 


ЕНЕ * SIZE 
コン ピュ ー タ の メモ リ に は , 決ま っ だ 容量 と いう の が あり ます 。 キー ボー ドガ ら プ ログ ブラム 
を 打ち 込ん で いつ だり, 変数 に デー タ を 入れ て いこ と , それ ら は メモ リ の 中 に 収め られ て いき 
ます か ら , 当然 メモ リ の 残り 容量 は し だ い に 減 つ て いき ます . 
現在 どの 位 の メモ リ が 宛 と し て 残っ つて いる が を 調べ る 関数 が FRE(n), まだ は SIZE で す . 
この 2 つ は , まつ だ ぐ 同 じ 命 令 で す . FRE 関 数 の 引数 は ダミ ー で す が ガ ら 何 を 入れ て も さ し つ が 
え あ り ま せん . 
プロ ブラム を 打ち 込ん で いて , 残り メモ リ が 気 に な つた と き は いつ で も この 関数 に よ つ て 調 
べ る こと が で きま す . た と えば , PRINT FREC0 ) と し て , 8200 と 表示 され だとすると, あ 
と 約 8200 文 字 べ らい まで は 入れ られ る と いう こと に な り ま す . だ だ し , これ は プロ グ ブラム 自体 
だ け の 話 で , 変数 や デー タ な ご で 使う 分 を 考え て は いま せん . 特に 注意 し な こ て は な ら な い の 
は 配列 変数 を 使う 場合 で す . プロ ブラ ム 中 で 配列 宣言 ガ 行 な われ る と , その 配列 の た め の 領 域 
を メモ リ の 中 に 確保 し ます がら , プロ プラ ム を 入力 し 終わ っ た と き の 残 り メ モリ ガ 少 な い 場合 , 
配列 宣言 が 実行 され だ と だ ん に Out Of memory に な る こと が あり ます . 数 値 変数 の 場合 , 
1 つの 配列 要素 に つい て 内 部 表現 に よっ て 5 バイ ト ( 単 精度 の 場合 ) が 秘 要 で すか がら, た と え 
lk, DIM А (255) と し た 場合 , 256X 5 =1280 パ イト も 使う こと に な り ま す . プロ ブラム を 作 
る と き に は , どう し て も 生 要 な も の だ け 配 列 を 使い , 保存 の 夏 要 の な い 計 算 の 途中 経過 など は , 
普通 の 変数 を 使う よう に し た 万 が よい で し よう 
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329 RETURN 

330 LABEL "円 GRAPH" 

349 CLS 4 

350 CIRCLE〈189, 1йй)», 30,7 

360 LINE (180, 100) – (180, 20),РЅЕТ, 7 

370 STP (0) =-РАІ (1) /2 

380 FOR I=1 ТО DA 

390 STP (1) =РАІ (2) ЖРЕК (1) +5ТР (1-1) : СЕМ=РАІ (2) ЖРЕК (1) /2+5ТР (1-1) 
4080 GX=COS (5ТР(122ж160%180:бҮ-5бІМС(бТР<122ж80%100 

410 РХ (І) «СО5 (СЕМ) ж12й: РУ (C1) =SIN (CEN) жей 

420 LINE (180, 100) - (GX, GY), PSET, 7 

430 РАІМТ ‹РХ (1) +180, РҮ(1) +100), (1-1) MOD 7+1. 7 

440 NEXT 

450 RETURN 

468 LABEL "ロン レイ " 

470 FOR I=1 TO DA 

480 MLOCX= INT (20+РХ (1) /8) : MLOCY=INT «(12 +РУ (1) /8) 

498 LOCATE мосх, MLOCY: PRINT USING "##. #4" PER (12x100 

51717) LINE (MLOCXXS- 1, ММ ОСУжв-1) - (ML ОСХхжв +40, МІ.ОСҮж8%8), PSET。 ð, BF 
518 ЫХ-(1-12ж24 

520 LINE (400, WX) - (450, иХ+ 14), РЗЕТ, 7,8 

539 PAINT 491, ИХ+ 1), (1-12 МОО 7+1,7 

540 LOCATE 60, 1-1) жЗ:РЕІМТ KOM ま (1) iLOCATE 59, (1-1) жЗ+1:РВІМТ 
ОА СІ) 

550 МЕХТ 

560 RETURN 


-1а2-- 1881188808 


0 
го 


ва プロジ ラム の に ッ キ シン 


@⑧@ ド ドッキング する に は ? 


デー タ の 作 表 か ら は じ ま っ て , 棒グラフ ・ 円 グラ フ を 描く まで , 3 本 の プロ グラ ム を 作っ て 
きま し た 。 こ れ ら は , 入力 され た デー タ の 形 を 変え て 表示 る せる 方 法 ほ し いえ ます 。 デ ー タ を 別 
の 角度 か ら 見 直す 方 法 { い っ て も よい で し ょ う 。 こ こ で は , 前 に 作っ た 作 表 の プロ グラ ム (7 
ログ ラム 5-1) と グラ フ を 作る プロ グラ ム と を 組み 合わ せ て , グラ フ と 表 と を 一 緒 に 表示 きせ 
て み ま し ょ う 。 ビ ジネス で は , デー タ を 別 の 角度 か ら 見 直し た り , まとめ て 確認 し た り と いう 
作業 が 必要 と な る か ら 6 です 。 

作 表 の サン プル は 前 に 作っ た レス トラ ン の 売上 げ 集 計 の プロ グラ ム を 使い ます 。 ど の 商品 の 
売れ 行き が よい か の 傾向 を 見 る た め に , ここ で は 円 グラ フ を 使う こと に し ます 。 

+, 作 表 の プロ グラ ム を テー プ か ら ロ ー ド し ます 。 こ の プロ グラ ム に , グラ フ を 描く 部 分 
を つけ 足せ ば よい わけ で す 。 ところが, 後 か ら 円 グラ フ の プロ グラ ム を LOAD す る t, それ まで 
入っ て いた 作 表 の プロ グラ ム は 消え て し まう こと に な り ま す 。 こ の よう な 場合 , MERGE (マー 
ジ ) と いう 方 法 で 2 本 の プロ グラ ム を 結合 し ます 。MERGE を 行なう た め に は , 後 か ら 読み 込む 
プロ グラ ム が アス キー 形式 で SAVE さ きれ て いな く て は いけ ませ ん 。 通常 の セー ブ で , X 1 は プロ 
グラ ム の 内 容 を 2 進数 の 信号 に 変換 し て 記録 し て いま す 。 こ の よ うな セー ブ 方 式 を バイ ナリ ー 
形式 と 呼び ます 。 

アス キー 形式 と いう の は , 打ち 込ん だ 文字 を を その まま の 形 で セー ブ プ す る も の で す 。 こ の 形式 
で セー ブ を 行なう と , バイナリー 形式 で セー プ す る の に 比べ て , 数 倍 の 時 間 が か か り ま す 。 

と りあ え ぇ ず , 先ほど LOAD し た 作 表 の プロ グラ ム を 改め ゆめ て アス キー セー ブ し まし ょ う 。 別 の カ 
セッ ト テ ー プ を 用 意 し て くだ さい 。 フ ァイル の 名 前 は 「 サ ク ヒ ョ ウ 」 と し まし ょ う 。 

SAVE" サ ク ヒ ョ ウ ", А 

と すれ ば , この プロ グラ ム の アス キ 
ー セ ー プ が 行なわ れ ま す 。 フ ァイル ネ 
ー ム の 後に カン マ で 区 切っ て A を つけ 
る と , アス キー セー ブ る れる こと に な 
り ま す 。 アスキー 形式 も , プロ グラ ム 
の 読み 込み に は LOAD 文 を 使い ます 。 

アス キー セー ブ を 行なう と , カセ ッ 
ト デ ッ キ が 何 回 か 動作 と 停止 を 繰り 返 
し ます 。 これ は , 256 文 字 分 ずつ に ま と 
め て プロ グラ ム の 読み 込み を 行なっ て 
いる だ めで す 。 

作 表 プ ログ ラム の アス キー セー ブ が 
99 10411081 —153— 


終了 し た ら , 今度 は 円 グラ フ の プロ グラ ム 【〔 プ ログ ラム 5 -11〕) を ロー ド し ます 。 こ の プロ グラ 
ム の うち , デー タ を 入力 する 部 分 は , 作 表 プロ グラ ム に も あり ます か ら 不 要 で す 。 

プロ グラ ム の 不要 な 部 分 を 消す に は , DELETE 文 を 使い ます 。 DELETE の パラ メー ター は , LIST 
と ほ ば 同じ で す が , 改め て ここ で 確か め て み ま し ょ 2 う ( 表 5-2 )。 パ ラメ ー タ を 省略 する と, 
作動 し ませ ん 。 


表 5-2 
ログ ラム の リス га 
LIST Ba 26 Ко. 全 プ ログ ラム を 削除 
表示 
m 行 か ら 後 の 全 プロ グ m 行 か ら 後 の 全 プ ログ 
LISTm 一 DELETEm—| ™ 
ラム の リス ト を 表示 ラム を 削除 
行か ら n 行 まで n m 行 か ら n 行 まで の プ 
сөте-т| О ВТЕ TOZA. EVEEN 


グラ ム の リス ト を 表示 ログ ラム を 削除 


プロ グラ ム の 最初 か ら n プロ グラ ム の 最初 か ら 
ST z 
LST | 行 ま で の リス ト を 表示 PFET ngaten 


k. 


=== === 
ハイ フン の か わり に 「,」 を 使う こと も で きま す 。 


この 場合 , 100 か ら 180 行 を 削除 する わけ で すか ら , 
DELETE 100, 180 

と し ます 。 プ ログ ラム の この 部 分 が きち ん と 削除 され だ た か どう か を リス ト を し て みて 確認 し 
て いて くだ きい 。 

100 か ら 180 行 の 他 に , 10 行 と 40 行 も 削除 し ます 。 さ る ら に , 作 表 の プロ グラ ム か ら こ の 円 グラ 
フ の プロ グラ ム を 1 つの サブ ルー チン と し て 呼び 出し て 使う た め に , 10 行 に LABEL を つけ て し ま 
いま す 。 

10 LABEL "円 グラ フ " 

を そして, 90 行 の END を RETURN に 直し て お きま す 。 こ れ で , 円 グラ フ を 描く プロ グラ ム の 全体 
が 「 円 グラ フ 」 と いう 名 前 の 大 き な サ プル ー チ ン の 形 に な り ま し た 。 

次 に 作 表 の プロ グラ ム を MERGE す れ ば よい の で す が , この まま で は 行 番号 の 重なる 部 分 が で 
て き て し まい ます 。 ア スキ ー セ ー ブ き れ た プ ブログ ラム を も ロード, また は マー ジ す る と , セーブ 
る れ て いた も の が キー ボー ド か ら 打 ち 込 まれ た の と 同じ こと に な り ま すか ら , この まま で は う 
まく いき ませ ん 。 そ を の た め に , 円 グラ フ を 描く サ プ ル ー チ ン の 行 番 号 を 変え て お か な けれ ば な 
り ま せん 。 作 表 の プロ グラ ム は 590 行 で 終わ っ て いま し た か ら , 円 グラ フ を 描く サブ ルー チン を 
600 行 か ら は じ ま る よう に 直し ます 。 こ の た め に は , RENUM (リナ ン バ ー) と いう コマ ンド を 使 
いま すず 。 


@ リリ ナンバー の 技術 


この RENUM と いう コマ ンド は , 
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RENUM n, m, st 
増分 、 ス テッ プ 
古い 行 番号 
新しい 行 番号 


と 書き ます 。m か ら の 行 番号 を n か ら に 書き 直す 命令 で , 書き 直る れる プロ グラ ム の ステ ッ プ 
を st の と ころ で 指定 する こと も で きま す 。st を 省略 する と 行 番号 は 10 ず つ に な り , m を 省略 
する と , プロ グラ ム 全 体 の 行 番号 が 書き か を られ ます 。 パ ラメ ー タ を すべ で て 省略 する と, 10 か 
ら 6 はじまる 10 ス テッ プ の 行 番号 に な り ま す 。 で すか ら , プロ グラ ム の 手直し を し て いっ て 行 番 
号 が つま っ て し まっ て 困っ た と き な ど , RENUM に よっ て 間隔 を 整え を る こと が で きま す 。 

た と えば , 

し い 行 番号 
古い 行 番 号 
RENUM 600, 500 


と する と, 500 行 か ら の 部 分 が 600 行 へ 移動 し , 500 か ら 590 ま で の 10 行 に 別 の 部 分 を 書き 込む こ 
と が で きる と いう わけ で す 。 こ の よう な 場合 、 新 し い 行 番号 は 前 の 行 番号 より 大 きく な いと 当 
然 エ ラー に な り ま す 。 新 し い 行 番号 だ け を 指定 し て 全体 を 変化 きせ せる と き は 小さ く て も か まい 
ませ ん 。 

RENUMBER を 行 な 5 と , GOTO, GOSUB, RESTORE な ど で 指 定 する 行 番号 も すべ て 書き か えら 
れ ま す 。 その と き に も し , まだ 書か れ て いな い 行 番号 へ の GOTO 命 令 な が ど が ある と , そこ は 65535 
と いう 番号 に な り ま す 。 


ӨФь>.>-, プロ グラ ム を つなげ る 


ここ で は , 作 表 の プロ グラ ム が 590 行 で 終わ っ て し まい まし た だ から, 
RENUM 600 
と し て 600 行 か ら は じ ま る よう に し て 直し て お きま す 。 

KU, アス キー モー ブ さ きれ た 作 表 の カセ ッ ト を セッ ト し , MERGE と 命令 し ます 。 セ ー ブ の と 
き と 同 じ よ うに , テー プ が 動作 ・ 停 止 を 何 回 か 繰り 返し て 止ま り ま す 。 リ スト を と っ て みる と , 
作 表 の プロ グラ ム と 円 グラ フ の プロ グラ ム が 両方 と も 間違い な (書き 込ま れ て いる こと が わか 
り ます 。 後 は , 作 表 の プロ グラ ム を 少し 手直し し て , 大 き な サ ブル ー チ ン 「 円 グラ フ 」 を 呼び 
出す よう に すれ ば よい の で す 。 

MERGE し た 後 で 変更 , 追加 する 部 分 は 次 の と なり で す 。 

18 МІрТН8й:5СЗЕЕМЕ, й:С. 54 
28 GOUSUB" テ * -з" 
за GODSUB "лл" " 
40 GOSUB "カタ ニン 
50 GOSUB "ка?" 


68 50508 "円 2 ラフ リ 
65 END 
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@X1 で は こん な こと も . ノ 


MERGE を 行なう の に , いち いち カセ ッ ト テ ー プ を 使う の で は 時 間 も か か っ て 面倒 だ と いう 人 
の た め に , X 1 ならでは の 便利 な 方 法 を 紹介 し まし ょ う 。 それは, グラ フィ ッ ク VRAM を 外部 
メモ リ と し て 使う 方 法 で す 。 

X1 の グラ フィ ッ ク VRAM (以下 GRAM と し ます ) は , 48k BYTE の 容量 を 持っ て いま す 。 
この GRAM を グラ フィ ッ ク 専 用 の RAM と し て で は な く , 普 通 の メモ リ と し て プロ グラ ム や デー 
タ を 書き 込ん で し まう こと が , X 1 で は で きる の で す 。 

205 3 な GRAM の 使用 目的 を 決め る の が , 

OPTION SCREEN n 
と いう ステ ー ト メン ト で す 。n の 値 が 1 の と き は , GRAM は これ まで どおり グラ フィ ッ ク を 描 
くだ た め に 使用 きれ ます 。n を 2 に する と , 外部 メモ リ と し て 使う こと が で きる よう に な り ま す 。 
画面 5- 4 の よう に 表示 る れ だ たら , GRAM の 内 容 セ クリ ア す る 
意味 も 含め て イニ シャ ライ ズ (初期 化 ) を 行ない ます 。 (画面 5 - 4 〕 


INIT "MEM : ” ОРТ1ОМ SCREEN 2 
と し て リタ ー ン キー を 押し て くだ るい 。 

Are you sure? (y or n) 
と 確認 を 求め て きま す 。 よ けれ ば , [キー を 押し ます 。Y と n は 大 文字 で も 小文字 び でも か まい 
ЕА. 

"MEM : "は , GRAM を 示す ファ イル ディ スク リプ タ と 呼ば れる も の で す 。 フ ァイル ディ スク 
リプ タ は , その コマ ンド を 働か せる 対象 の 周辺 機器 を 指定 する も の で す 。 フ ァイル ディ スク リ 
プ タ は 次 の よう な も の が あり ます 。 

SCR : 画面 (コン トロ ー ル コー ド を 実行 する ) 
САТ: 画面 (コン トロ ー ル ュー ド を 表示 する ) 
KEY : キー ボー ド 

LPT: プリ ンタ 

CAS: カセ モット テー プ 

МЕМ: グラ フィ ッ ク VRAM 

EMM0 — 9 : 外部 メモ リ 

これ ら の ファ イル ディ スク リプ タ の 使い 方 は 少々 面倒 な の で す が , 便利 な 方 法 も あり ます か 

b, 1 つ だ け 覚 えて お いて くだ きい 。 プ ログ ラム の カセ ッ ト テ ー プ "を セッ ト L, 

RUN "CAS : 
と する と , 自動 的 に テー プ か ら の 読み 込み が 行なわ れ , 終わ る と すぐ プ ログ ラム が 走り は じ め 
š+, 

ST, 含ま で テー プ を 使っ て きだ の と 同じ 手順 を GRAM を 使っ て 行なっ て み ま し ょ I. 

まず , 作 表 の プロ グラ ム を テー プ か ら 読 み 込 み ま す 。 そ し て これ を GRAM に アス キー 形式 で 
セー ブ し て お きま す 。 こ の と き の 画 面 は 画面 b-5 の よう に な り ま す 。 
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次 に 円 グラ フ の プロ グラ ム を LOAD し , 先ほど と 同じ よ 


、 画面 5-5〕 
うに リナ シン パー し ます 。 そし て , GRAM に モー デ し て あ 
る 作 表 の プロ グラ ム を MERGE し ます 。 LOAD "CAS: 
た 3 > Ок 
便利 な 方 法 と し て , FILES を 使っ て み ま し ょ 2 う 。 i E 
FILES "MEM : Ok 


と 入力 し て くだ きい 。 画 面 に は , 
Asc "MEMO : サク ヒョウ … 

と 表示 され ます 。 カ ー ツ ル を Asc の A の と ころ まげ で 移動 させ , MERGE と 打ち 込ん で リ ター ン キ ー 
を 押し ます 。 す ぐに OK が 表示 る され ます が , これ で OK な の で す 。 リ スト を と っ て 確認 し て みて 
くだ さい 。 本当 に プロ グラ ム の MERGE が 完了 し て いま す 。 

この 方 法 を 使う と , カ モッ ト テ ー プ に 比べ て 大 変 手早く すま せる こと が で きま す 。SAVE, LOAD 
も 含め て , ファ イル ディ スク リプ タ を 指定 する だ け で すか ら , 使い 方 も 簡単 で す 。 

た だ し , ファ イル ディ スク リプ タ は す で て 大 文字 を 使わ な か いと エラ ー に な り ま す 。 

ファ イル ディ スク リプ タ を 十分 に 利用 で きる よう に な れ ば , あな た も 一 人 前 の X 1 の ブログ 
FC P” 
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SS メニ ュー を 使え ば 


る ⑧@e プ ログ ラム の 組み 立て 方 


き て みな さん は , 作 表 と グラ フ の プロ グラ ム を つなげ て , 1 本 の も の に まとめ あげ , さっ を 
L 利用 し て いる 人 も いる こと で し ょ う 。 も ちろ ん , この まま で も 十分 に 使え る プロ グラ ム で す 
ж, ブロ グラ ム の 流れ が は じ め か ら 終 わり まで 1 つ で , つま り は 1 回 限り の 処理 し か で きま せ 
ло しかし, ある 商品 の 売上 げ 数 が 増え た ら 全 体 の 売上 げ は , どう 変化 する か と いっ だ こと が 
わか れ ば , 翌日 の 仕事 の 目安 を 立て る こと も で きま す 。 

この プロ グラ ム は , 全体 が 5 つの サブ ルー チン の 集まり で 構成 きれ て いま す 。 必 要 に 応じ て 
希望 の サブ ルー チン を 自由 に 呼べ る よう に し て お ぢ く 〈 く と , 非 常に 実用 的 な ゲロ グラ ム に な り ま す 。 
次 の 画面 5- 6 が 表示 され て , 必要 な 処理 を 選択 で きる よう で あれ ば , 理想 的 と いえ ます 。 
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本 で いえ ば , 目次 に あたる この よう な 形式 を 一 般 に 「 メ ニュ ー」 と 呼び ます 。 メニ ュー 形式 は , 
ビジ ネス 用 の プロ グラ ム に は 必ず と いっ て よい ほど よく 使わ れ て いま す 。 

「5 」 で 指定 する 「 オ ワリ 」 以 外 の 4 つの 仕事 を 実行 し 終わ っ た ら , 必ず この メニ ュー を 表 
示す る と ころ に 戻っ て くる よう に , 操作 も し や すく 〈, 誰 に で も 手軽 に 扱え る プロ グラ ム に な り 5 
ます 。 こ の よう な プロ グラ ム に する た め の 考 え 方 を 図 に する と , 図 5-5 の よう に な り ま す 。 全 
体 の リス ト は 【〔 プ ログ ラム 5-12〕 C+ (画面 5 - 7 )。 前 の 〔 プ ログ ラム 5- 1 〕 の 70 行 に あっ 
だ た ラベ ル 「 デ ー タ 」 の 部 分 は , リナ ン バ ー に よっ て 100 行 か ら 移 り , その 間 に 新 た に メニ ュー を 
表示 する 部 分 と キー 入力 (選択 ) の 部 分 を 入れ て あり ます 。 

し か し , 前 の 【 プ ログ ラム 5-1〕 を リナ ン バ ー し て この 部 分 を つけ 加え る だ け で は , езе 
ろ 不 都合 な 点 が 出 て きま す 。 つ まり , グラ フ が うま く 描 けり な く な っ だり, 画面 表示 が 重なっ て 
し まっ た り , また だ , 表 な ど を 見 る 間 も な い うち に , メニ ュー 画面 に 戻っ て し まう と いう よう な 
550%, 
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[画面 5- 7) | (095-5) 
М W ғ” 


меен 
4 


үште 


М 


メニ ュー 形式 を 取り 入れ る た め に は , 全体 を 通し て の 変数 
の 動き や 画面 の 表示 モー ド , 表示 方 法 に つい て , 再 検討 し な 
く て は な り ま せん 。 あ る 数 の 合計 を 計算 する 部 分 な ど は , F 
ー タ の 変更 が ある こと を 考え て , その ルー チン が 呼ば れる た 
びに , 変数 の 内 容 を 一 度 完全 に クリ ア し て か ら も う 一 度 計算 
し な いと 不都合 が 生じ ます 。 ま た , 見 や すい 画面 作り の た め 
に 表示 モー ド の 切り か え ぇ を 行なう の も , 各 サブ ルー チン の 最 
初 で 行なう よう に し て お くく こと も 必要 で す 。 

[プロ グラ ム 5-12) 


10 возив"?“ -2" 

28 MIDTH49:SCREEN9。 9:CLS4 

30 COLOR4:LINE (QO, 8) - 39, 24), "W", В 

40 LOCATE 8, З:РК1МТ"## 7077“ 25-2 уз) #4" 


50 LOCATE 9,6:С0О1 ОЮ6:ІРБІМТ"?2/У77 スウ ニュ ウリ ョ ク --- 1" 
55 LOCATE ?,8:COLOR3:PRINT"#" -2 カク ニン 、 テ イセ イ --- 2" 
る 9 LOCATE я, 18:COLORS:PRINT"2?Uyy" 1974 ج‎ 3 
65 LOCATE 7, 12:COLORé:PRINT"2" 77 サク セイ == 4“ 
78 LOCATE 9, 14: СОСОКЗ: РКТМТ" 770) === Ж" 


75 LOCATE7,29:COLOR5S IPR INT "In 2377257 エラ フン テ ~ 79° ЧА» E 
80 LOCATE30, 20:REPEAT:Z$=INKEY$ (1) :UNTIL VAL (2%) >9 AND VAL (2%) <6 
85 IF 2%-"5" THEN END 

90 ON VAL (Z$) GOSUB "лл" ", "7757", "Ез?", "В7“ 27" 

95 GOTO 280 

100 LABEL ">" -2" 

118 RESTORES?Q:FOR Ісі TO 7 

120 READ MENUS (1) , МЕРАМ (1) : NEXT 

130 RETURN 

140 LABEL "カス ° ":CLS:COLOR7 

150 PRINT "ヒン メイ 277 за“ 

168 PRINTSTRING$ (38, "—") : CONSOLE2, 23 

178 FOR Ізі TO 7 

180 госатеа, I+i:PRINT USING"& " MENUS (I); 
190 PRINT USING"###, ### Pi"sNEDAN (I), 

200 LOCATE28, 1+1: ІМРОТ" ", КА2 (1) 

220 NEXT ` 

2З@ RETURN 

240 LABEL "カク ニン "EMIDTH49iCLS ICULOR ア 

259 FOR I=1 TO 7 

268 LOCATEQ, I+1:PRINT USING"& " $ MENUS <I); 
270 PRINT USING "HHH, ### В"; МЕРАМ СІ), 

289 LOCATE27, I+1:PRINT KAZ (1) 

290 NEXT 
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зав LOCATE, 12:РВІМТ "テイ セイ ñ アリ マス カマ アー CYAN) "3 

318 ҮМФ= "ҮуМп" 

320 КЕРЕАТ: АФ= ІМКЕҮФ (1) :AN=INSTR (ҮМФ, АФ) UNTIL АМ< >90 

330 IF AN>2 THEN RETURN 

340 LOCATE28, 2: INPUT"", DUMMYS$ 

350 FOR Y=2 TO 8 

360 KAZ (Ү-1) =VAL (SCRNẸ (27, Y, 5) > 

370 NEXT 

380 GOTO 250 

390 аве! "Са?" 

400 HIDTH80:CLS 4:COLOR7 

418 (ОСАТЕб, 0:С5І2Е2:ІРБІМТЕ"?2/УУ” Еа?! : СЗТ2Е 

428 PRINT WF 
аза PRINTI E > г + L 2 ж І ЛЫ | や ラガ が 2 1 
440 BO を $=" " 

459 TTL=9 

468 FOR 151 ТО 7 

478 PRINTBO$ 


480 PRINT"I";USING"& &" $ MENUS (1); 

490 PRINTTAB (11); "|"; TAB (14) $ USING "#8, ###"; КА? (1); 

500 PRINTTAB (20); "|"; TAB (23) 3 05 ІМС "#, ###"; NEDAN (I): 

510 PRINTTAB (29) ; "1"; TAB (32) $ USING "#, HHH, HHH" { КА? (1) KNEDAN (1) ; 


520 PRINTTAB (42) ;"1" 
530 TTL=TTL+KAZ (1) XNEDAN (I) 

540 NEXT 

550 PRINT В0% 

560 PRINT "| 29 27411 | | " 3 TAB (31) :051мб"##, ###, 
ы наг 

578 PRINTTAB (42) 5 " | "PRINT" レーーーーー . —— uae ーー 
و‎ 

575 LOCATE9, 23:PRINT"OK --- я" ー ス " 

580 Z$=INKEY$:IF Z%=CHR$ (32) THEN RETURN ELSE 588 

598 DATA カレ ー ラ イス 458, Ік“254,856, NIN“ -7° , 800, 211225 7, 500, カニ クト 397, 
960,4%-2/%-, 1000, 3972734, 880 

608 LABEL "2° 57": ТОТНВВ: С. 54 : COLOR? 

610 GKEI=0:DA=7:FOR 1=1 ТО 7:04(<1) =KAZ (1) : КОМ (1) =МЕМОФ (I) :СКЕТе 
СКЕТ +0А (1) : ЧЕХТ 

628 00508 "SOART" 

638 GOSUB "STEP" 

648 GOSUB "GRAPH" 

650 GOSUB "ハン レイ " 

655 LOCATE9, 22:РВІМТ"Ок --- 77 -я" 

668 Z$=INKEY$:IF Z$=CHR$(32) THEN RETURN ELSE 660 

678 LABEL "SOART" 

688 FOR 1=1 TO ра-1 

698 К=1+1 

700 FOR JsK то DA 

710 IF DACI) >=DA〈J〉 GOTO 730 

720 SWAP DACI), DACI) SWAP KOMS (I), KOMS (J) 

730 NEXT 

740 NEXT 

750 RETURN 

768 LABEL "STEP" 

770 FOR I=1 TO DA 

788 РЕК (1) =DA〈1〉/GKE 1 

798 NEXT 

880 RETURN 

818 LABEL "ВСКАРН" 

вга CLS4 

вза CIRCLE (180, 180), за, 7 

848 LINE (18, 108) - (188,20), РЅЕТ, 7 

858 STP (0) =-РАІ (1) /2 

868 FOR Ізі ТО DA 

878 БТР (1) =РАІ (2) ЖРЕК (1) +STP (1-1) :CEN=PAI (2) XPER (1) Z2+STP (1-1) 
888 6GX=COS (STP (I) )x160+180:GY=SIN(STP (1) ) ж80+100 

898 PX<1I〉 =COS (СЕМ X128:PY (1) =SIN(CEN)*é 0 
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900 LINE (180, 100) - (GX, GY), PSET, 7 

910 PAINT РХ 1) +180, РУ<Т) +100), 1-1) MOD 7+1, 7 

920 NEXT 

930 RETURN 

940 LABEL "ロロ フン レイ" 

950 FOR Ізі ТО Па 

960 MLOCX=INT «28 +РХ (1) /8) : MLOCY=INT (12+РҮ (І) /8) 

970 LOCATE MLOCX, MLOCY:PRINT USING"##. #4" РЕВ (I)x100 

?80 L INE (МГ ОСХЖВ-1, MLOCYXS-1) - (MLOCXX8 +40, МІ.ОСҮж8%82, PSET, 0, ВЕ 
990 い X= (1-1) ж24 

1000 LINE (408, WX) - (450, МХ+ 16), РЗЕТ, 7,8 

1010 РАІМТ<4061,МХ%12, (1-1) МОЮ 7+1,7 

1020 (0ОСАТЕ680, (1-12ЖЗ:РБІМТКОМФ(12:10С68ТЕ59, 1-1) жз+ 1: РК1МТ DA 


1938 NEXT 
1949 RETURN 


@ メ ニュ ー か ら サ ブルー チ ン を 呼び 出す に は 


メニ ュー か ら 各 サブ ルー チン を 呼び 出す に は , メ ニュ ー に つけ られ て いる 番号 に よっ て 行ない , 
ON で GOSUB 文 に よっ て 振り 分 け ま す 。 キー 入力 の 処理 方 法 は , これ まで に も し ば し ば 使っ て き 
た REPEAT て UNTILL と INKEY$ 関 数 を 組み 合わ せ た 方 法 で , 1 つの キー で 選択 の 入力 が で きま す 。 

各 サ プルー チン は , これ まで に 作っ た 基本 の も の と ほとん ど 同 じ で す が , 画面 モー ド の 変更 
な ど を うま く 〈 く 行なう よ うに 各 サ プ ブルー チ ン の は じ め の 部 分 に , い くつ か の 命令 を 追加 し まし た 。 
この よう な 後 処理 を 行なう こと を , 「 パ パッ チ あ て 」 と か 「 フ パッチ 処理 」 と 呼び ます 。「 ラ パッ チ 」 
と いう の は , 「 つ ぎ あ て 」 の こと で す 。 プ ログ ラム に つぎ あて を する , と いう わけ で す 。 も ちろ 
А, ここ で は プロ グラ ム 作 り の 練習 で すか ら , こう いっ た 後 処理 も 行なわ な けれ ば な り ま せん 
が , プロ グラ ム を 作る と き に は , あら か じ め き ちん と 設計 あし て , パッ チ 処 理 の 必要 の な いよ 
う 心 が ける と 良い で し ょ う 。 パッチ 処理 の 多い プログラム は , どう し て も エラ ー が 起き や すく 
Ж), バグ の 発見 の 能率 が 悪く な り ま す 。 

この プロ グラ ム は , 項目 を 増やす な どの 手 を 加え る と , 簡単 な デー タ 処 理 な ど に 使う こと が 
で きま す 。 各 サブルーチン の 働き や 変数 の 使い 方 を よく 確か め て お いて 〈 く だ さい 。 
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се プリ ンタ を 使え ば 


@ プ リン タ の いろ いろ 


作 表 グ ラフ の プロ グラ ム で , プリ ンタ を 使う こと を 少し 考え て み ま し た 。 み な る ん の 中 に は 
すでに プリ ンタ を 活用 し て いる 人 も いる こと で し ょ う 。X 1 の 周辺 機器 の 中 で は も っ と も ゃ 一般 
的 で し か も 非常 に 便利 な も の で す 。 

ここ で は ブリ ンタ の 使い 方 を 少し 詳し く 見 て いき まし ょ う 。 現在 X 1 の シス テム に 用 意 さ れ 
て いる の は , CZ-800P と いう 名 の プリ ンタ で す 。 プ リン タ は , も う ご 存 じ の よう に 紙 に コン ピ 
ュー タ か ら 6 送り 出る れる 文字 を 打ち 出す (印字 する と いい ます ) 機器 で す 。 印字 の 方 式 に は , 
ドッ トイ ン パ クト 式 , ЖЕЛ, 感熱 式 . イン クジ ェ ッ ト 式 な どの 種類 が あり ます 。 

放電 式 と いう の は , アル ミ 浴 の 上 に 薄い 紙 を 重ね た 用 紙 を 使い , 電気 放電 (スパ ー ク ) に よ 
っ て 表面 の 紙 を 破壊 し , アル ミ 浴 を 露出 きせ て 文字 を 形 づ く る も の で す 。 音 が 静か で ある と い 
ぅ 長所 は あり ます が , 文字 が 読み に くい と いう 欠点 も あり ます 。 

感熱 式 は , 別名 サー マル プリ ンタ と 呼ば れる も の で , 熱 に 反応 する 特殊 な 用 紙 を 用 いる も の 
で す 。 こ の タイ プ も 音 が 静か な と ころ か ら , 最近 で は 一 部 の ワー ド プ ロ セ ッ サ に も 採用 きれ て 
いま す 。 (045-6) 

イン クジ ェ ッ ト 式 は , сто л ИКЕ Ем トニ = Fb) 

た イン ク を 紙 に 吹き つけ る も の で す 。 こ の 方 式 で は , 4 
ンク の 色 を 変 を て, カ ラー の プリ ント アウ ト が で きる と 
いう 優れ た も の も 開発 され て いま す が , 機械 の 整備 や 保 
守 に や や 手間 が か か る よう で す 。 

2 パソ コン で も っ と も 一 般 的 な プリ ンタ と いえ ば , ドッ 
トイ ン パ クト 式 で す 。 細い ワイ ヤ 状 の ピン で イン ク を 染 
みこ ませ た リボ ン の 上 か ら 紙 を 打ち , 文字 を 形 づ く る も 
の で す 。 XX 1 の プリ ンタ も この 方 式 を 採用 し て いま す 。 Ви Е, 印字 を する と き の 音 が や や 大 
きい の で す が , は や い 印 字 速 度 を 得る こと が で きま す 。 ピン は 図 5-6 の よう に 縦 に 8 本 並ん で 
いま す 。 8 本 の ピン を 横 方 向 に 移動 きせ な が ら , それ ぞ れ の ピン を 出し 入れ し て 印字 し , 文字 
の 形 を つく っ て いき ます 。 


@X 1 の プリ ンタ 


X 1 用 の プリ ンタ CZ-800P で は , プリ ンタ の 内 部 に 専用 の メモ リ を 備え を て いま す 。 で すか ら , 
X 1 の 本 体 か の ら る さまざま な コン トロ ー ル が で き , プログ ラム 中 で も コン トロ ー ル が で きま す 。 
CZ-800P で 使用 する の は , 幅 10 イ ンチ (#24сш) の ファ ン フ ォ ー ル ド 紙 と いう も の で す 。 フ 
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ァ ン フォ ー ル ド 紙 と いう の は , カ メラ の フィ ルム の よう に 両端 に 紙 送 り 用 の 究 の あい た 紙 で す 。 
ギア の よう に 爪 の つい た 輪 で 紙 を 送る 方 式 ル スプ ロケ ッ ト フ ィ ー ド と 呼び , 紙 を 送る 爪 は スプ 
ロケ ッ ト ピ ン で す 。 この 方 法 で は , 感 圧 紙 や 裏 に カー ボン を 塗っ た 複写 紙 を 使う こと も で きま 
すか ら , 複写 を と っ て お く 〈 必 要 の ある 伝票 発行 な ど に よく 使わ れ ま す 。 

この 他 に も タイ プラ イタ と 同じ よう に 紙 も ゴム ロー ラ で は さん で 送る フリ クシ ョ ン フ ィ ー ド 
と いう 方 法 も 可能 で す 。 この 場合 に は , 幅 210mm (A 4 サイ ズ ) の 普通 紙 を 使う こと も で きま す 。 
プリ ンタ へ の 紙 の 供給 は , 本 体 の 後ろ から でも, 本体 の 下 側 ( 底 ) か ら で も で きる よう に な っ て 
いま す 。 


@ プ リン タ を 働か せる 


次 に , 実際 に プリ ンタ を 動か す BASIC の コ ユ コマンド, ステートメント を 3 つ に 分 け て 説明 し ま 
も まう 。 

は じ め は プロ グラ ムリ スト を 打ち 出す 方 法 で す 。 長 い プ ログ ラム を 作っ て いく 〈 途 中, プログ 
ラム 全体 の 流れ を 確か め た いと き や や ,GOTO 文 や GOSUB 文 に よる 分 岐 が あっ て プロ グラ ム の 流れ 
が 複雑 に な っ て きた と き な ど , プリ ンタ に よっ て 印字 る れ た だ た リスト が ある と 便利 で す 。 プ リン 
タ か ら リ スト を 打ち 出す に は , LLIST と いう 命令 を 使い ます 。LIST と まっ だ く 同 じ よ うに オペ ラ 
ンド を 指定 し ます 。 

LLIST 全体 の リス ト を 出力 

LLIST 100, 200 100 行 か 6200 行 まで の リス ト を 出力 
LLIST, 100 100 行 まで の リス ト を 出力 

LLIST 2000 200 行 か ら 6 最後 まで の リス ト を 出力 
LLIST 100 100 行 の み を 出力 

リス ト の 出力 と 関連 し て , LFILES が あり ます 。LFILES は FILES の 出力 を プリ ンタ に 行なう も の 
で す 。 1 本 の カセ モット テー プ に 何 本 も の プロ グラ ム や デー タ が 記録 さき れ て いる と き に , FILES 
を 実行 する と , テー プ に 収め られ だ ファ イル 名 を すべ て 画面 に 表示 し , プリ ンタ に 出力 し ます 。 
これ に よっ て テー プ の 内 容 の 一 覧 表 を 作る こと が で きま す 。 

LFILES “ddd : " 
と し て 使い , ddd は ファ イル ディ スク リプ タ で , CAS : MEM : EMMO ; —EMM . 9 こ が 使 
用 で きま す (FILES も 同じ )。 

LLIST に よっ て 打ち 出し た だ リスト で 必要 な も の は , 市 販 の バイ ンダ な ど を 利用 し て 保存 し て お 
《 よい で し ょ う 。 

2 つ 目 は , 実用 上 も っ と も 重要 な も の で , 計算 結果 や デー タ を 打ち 出す 命令 で す 。 これ に は , 
LPRINT を 使い ます 。 使い 方 は PRINT 文 と ほぼ 同じ で , プロ グラ ム 中 の TAB や USING も 同じ よう に 
働き ます 。 PRINT 文 に は 各種 の ュ コン トロ ー ル ユー ド が あり まし た 。 PRINT 文 と コン トロ ー ル コー 
ド を 組み 合わ せ て , さま ざま な 動作 を X 1 に 行なわ せる こと が で きま す 。LPRINT 文 で も プリ ン 
タ の 動作 状態 を 決め る コン トロ ー ル コー ド が 用 意 る きれ て いま す 。 こ の うち 実用 的 な も の を いく 
つか あげ て み ま し ょ う 。 こ れ ら の コン トロ ー ル コー ド は , 

[LPRINT CHRS(C,, С.) | 
Аз 18180811 —143— 


と いう 形 で 指定 し ます 。C,, C。 の 値 を 変え た る と どの よう な 命令 た な る か を 見 て み ま し ょ う 。 


1. 文字 サイ ズ の 指定 

27, 82 : 普通 サイ ズ の 文字 を 指定 し ます 。 電源 を 入れ た 直後 は この 状態 に な っ て いま すか ら 
特に 指定 する 必要 は あり ませ ん 。 1 行 の 印字 数 は 80 文 字 に な り ま す 。 

27, 85 : 横 拡大 文字 を 指定 し ます 。 表 の タイ トル な ど に 使う こと が 多い ょ う で す 。 1 行 の 印 
字数 は 40 文 字 に な り ま す 。 

27, 69 : 縮小 文字 を 指定 し ます 。 印 字数 は 1 行 96 文 字 に な り ま す 。 こ の 状態 で 横 拡大 指定 を 
行なう と , 1 行 の 印字 数 は 48 文 字 に な り ま す 。 


2. 改行 間隔 の 指定 
作 表 の と ころ で 少し ふれ た も の で す が , 印字 後 改 行 す る 量 を 指定 する も の で す 。 
27, 54: 電源 を 入れ た 直後 の 状態 で , 6 分 の 1 イン チ の 改行 に な り , グラ フィ ッ ク キ ャ ラク 
タ の 間隔 が 開き ます 。 
27, 56: 8 分 の 1 イン チ の 改行 で , グラフィック キャ ラク タ は ほぼ つなが り ま す 。 


プリ ンタ を 動か す 3 つ 目 の 命令 は , 画面 の コピ ー を 打ち 出る きせ る た め の 命令 で す 。 グ ラフ ィ 
ッ ク で 描か れ た 画面 を を の まま コピ ー に 取る よう な 場合 に 使う 命令 で す 。 プ ログ ラム の 進行 中 
の 状態 を 資料 し し て 残し た いと き や , ゲー ム の 1 シー ン を 残し て お いて 説明 に 使う と き な ど に 
便利 で す 。 

НСОРҮ п 

と し て 使い , n を 省略 する と テキ スト 画面 (普通 の 文字 が 書か れる 画面 ) を コピ ー し ます 。 こ 
の 場合 , ゲ ダイ レク トモ ー ド で 行なう と HCOPY 命 令 自 身 も コピ ー に よっ て 表示 る れ て し まい ます か 
5, 臨時 に プロ グラ ム 中 に HCOPY 命 令 を 書い て や る と よい で し ょ う 。 

X 1 の 画面 構成 は この テキ スト 画面 の 他 に , 3 枚 の グラ フィ ッ ク 画 面 を 加え だ 4 つの 画面 か 
ら で き て いま す 。 n の 値 に よっ て , 次 の ょ うな 組み 合わ せ で コピ ー を 取る こと が で きま す 。 

n=0 : グ ラフ ィ ッ ク 1, 2, 3 を 合成 し た も の 

n 王 1 : グ ラフ ィ ッ ク 画 面 1 (通常 青 で 描 わ れ て いる グラ フィ ッ ク ) を コピ ー 
nー2 : グ ラフ ィ ッ ク 画 面 2 (通常 赤 で 描か われ て いる グラ フィ ッ ク ) を コピ ー 
nー3: グ ラフ ィ ッ ク 画 面 3 (通常 緑 で 描か われ て いる グラ フィ ッ ク ) を コピ ー 
nー4: グ ラフ ィ ッ ク 画 面 1 か ら 3 と テキ スト 画面 を 合成 し た る の を コピ ー 

n ニ 1 一 3 で , 通常 , と 書い た の は , PALET 文 や CANVAS 文 で 色 指 定 が 動か され て いな いと き 
の ディ スプ レイ 上 に 見 られ る 色 の こと で , 3 原色 以外 の 色 の 場合 は , た と えば マゼンタ な ら 青 

と 赤 ( グ ラフ ィ ッ ク 画 面 1 と 2) の 両方 に 描 わ れ て いる わけ で すか ら , HCOPYI で も HCOPY 2 で 
も マゼンタ の 部 分 は 出力 され ん る こと に な り ま す 。 

HCOPY を 行なっ て も , CSIZE で 指定 し た 拡大 文字 を コピ ー す る こと は で きま せん 。 
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X | と 遊ぼ う 


\ ж" ELE, 


An 1818318Bn1 IST 


5-1 謎 の 文字 を 探る 


@PCG っ て な ん だ 


[CTRL | キー と テン キー の | を 押し て か ら 何 か の キー を 押し て み ま す 。 何やら 分 か ら な いけ 
れ ど 意味 あり げ な 白い 模様 の よう な も の が 出 て きま し た 。X 1 が こわ れ て し まっ た の か と 不安 
に な っ て し まっ た だ 人 は , も う 一 度 [CTRL | キー と 起 キ ー と を 押し て くだ さい 。 も と の 状態 に 戻 
り ま す 。 

一 般 に , パソ コン で は , 表示 する 文字 や 記号 を キャ ラク タ ・ ジ ェ ネ レー タ と 呼ば れる ROM (F 
ー タ の 読み 出し 専用 の メモ リー) に 書き 込ん で ありま す 。 X 1 で は , この ROM キ ャ ラク タ ジ ェ 
ネ レ ー タ (ROMCG) の 他 に , 自由 に 内 容 を 書き か える こと の で きる RAM の キャ ラク タ ・ ジ ェ 
ネ レ ー タ (RAMCG) を 持っ て いま す 。 

これ を 別 の 名 で , プロ グラ マブ ル ・ キ ャ ラク タ ジ ェ ネ レ ー タ (РСС) と 呼び ます 。 双 1 の 特 
徴 的 機能 の 1 つ で ある PCG 機 能 ほ し いう の は , キャ ラク タ を 自由 に 設定 で きる 機能 の こと で , X 
1 用 と し て 市 販 さ れ て いる ゲー ム の どれ を みて も , この PCG 機 能 を 用 いて いな いも の は な いと い 
っ て も 良い ほど で す 。 い っ て みれ ば , この PCG を 使い こなさ る な いう ち は , 本 当 に X 1 の 機能 
フル に 活用 し て いる と は いえ な いで し ょ う 。 ここ で は , PCG に つい て 見 て いき まし ょ う 。 


ФКАМСС と КОМСО 


X 1 に 電源 が 入れ られ , BASIC が 動き は じ め た と き に は , まだ この RAMCG に は 何 も 書 き 込 
まれ て いま せん 。 いま, キー を 押し て 出 て きた よう な , 白い 四角 形 が 表示 きれ た わけ で す 。 も 
し 電源 を 入れ て か ら 何 か の プロ グラ ム を 走ら せ た あ と だ と する と , その プロ グラ ム 中 で 定義 き 
れ て いた 文字 や 記号 な どの キャ ラク タ が 表示 る れ ま す 。 試し に . アプ リケーション テー プ の 中 
D, TRAIN X1 を 動か し て み ま し ょ 2 う 。 

巻き 戻し た テー プ を セッ ト し , 

APSS 2 : RUN “CAS : 
と キー イン し て リタ ー ン キー を 押し ます 。 ひ と と お り プ ログ ラ (46-1) 
ム を 動か し た 後 止 ゆま す 。[CTRL |+ 了 軌 キ ー を 押し て か ら , 
ABBCBBCBBBD と 順番 に キー を 押し て みて くだ さい 。 す る と , 
この TRAIN X 1 と いう プロ グラ ム の 中 で 走っ て いた 新幹線 
が 画面 に 描 わ れ ま す 。 こ の プロ グラ ム で は , A か ら D に 対応 
する RAMCG に , 新幹線 の 形 を 定義 し て いた わけ で す 。 

[CTRL |+ 軌 キー を 押す と, ROMCG と RAMCG の 切り か え 
が 行なわ れ ま す 。 プ ログ ラム 中 で は 切り か え を 行なう に は , 
CGEN と いう 命令 を 使い ます 。 CGEN 1 と する と RAMCG と な 
b, 単に CGEN と する か CGEN 0 と 指定 する と ROMCG に な 
り ま す 。 試 し に CGEN 0 と 入力 し て , リタ ー ン キー を 押し て み 
て くだ さい 。 文字 の か わり に 新幹線 の パー ツ が 表示 る れ ま す 
ー1 さ る 一 181808118 AS 


&H7C 124 
8h4 4 


ДЕС 16 
10 i6 
ый 32 


kið B 


6 X1 と 遊ぼ う 


か ら , 注意 し て 入力 し な けれ ば な り ま せん 。 こ れ で 普通 の 文字 や 記号 が 表示 る れる よう に な り 
2%” 

RAMCG, ROMCG と も , 1 つの 文字 は , 横 8 ド ッ ト ※ 縦 8 ドッ ト で 構成 され て いま す 。 これ 
を 横 1 列 ず つ 8 段 に 分 け て 考え を る と , キャ ラク タ ・ ジ ェ ネ レー タ に セッ ト さ る れる デー タ の 全体 
も 8 つの デー タ に 分 ける こと が で きま す 。 実際 に キャ ラク タ ・ ジ ェ ネ レー タ の 中 の デー タ は , 
Rü 1 列 ずつ 8 段 分 の デー タ の 組み 合わ せ で 構成 きれ て いる の で す 。 た と えば , カタ カナ の 「 ア 」 
を 例 に と る と , 図 6-1 の よう な デー タイ で ず 構 成 さ れ て いま す 。 

枠 の 外 に 書か れ た 数 値 の うち , 左側 は 「 多 HH」 の 印 で わか る よう に 16 進 数 右 は 10 進 数 で す 。 
き て , この デー タ は どの よう に し て 作ら 6 れ て いる の で し ょ うか 。 

まず 横 1 列 の 8 つの 枠 に 左 か ら 順 に 128, 64, 32, 16, 8, 4, 2, 1 と 数 を ふり ます 。 そ し 
с, ドッ ト の ある 枠 の 位置 の 数 を すべ て 足し ます 。「 ア 」 の 1 段 目 の 場 合 。 64 十 32 十 16 十 8 十 4 
で 124 と な り ま す 。 同じ よう に し て 「 ア 」 の 2 段 目 を みる と 4 と な り ま す ( 図 6-2)。 

RAMCG に デー タ を セッ ト し , 新しい 文字 を (046-2) 
定義 する に は , 図 6-1 の よう な 8Xx8 の 方 眼 を 1128 64 32 16 8 4 2 1 
ТЕКТЕ | elelelele| | | 
め ま す 。 文字 の パタ ー ン が で きた だ たら , 先ほど の 
рис, 8 段 分 の デー タ を 作り 出し ます 。 次 に 各 段 ご と の 数 値 を CHR$ 関 数 に よっ て 文字 列 に 変 
換 し ます 。 

RAMCG は 青 , 赤 , 緑 の 3 色 に 分 か れ て いま すか ら , それ ぞ れ の 色 に 対し て デー タ を セッ ト 
する こと に な り ま す 。 


⑧@ ひ びら が な の 「 あ 」 を 作ろ う 


具体 的 な 例 を あげ まし ょ う 。 ひ ら が な の 「 あ 」 を 作っ て みる こと に し ます ( 図 6-3)。 
変数 A$ に 入れ て お く と する と , A$ 三 CHR$ (32, 252, 40, 124, 170, 146, 100, 0) と な 5 
а 

CHR$ 関 数 は , 与え を られ た 数 値 を アス キー コー ド と みな し 【 図 6-3〕 
T, それ に 対応 する 文字 を 与え る 働き を し ます 。 

ST, この デー タ を RAMCG に モッ ト し な けれ ば な り ま 
せん 。 そ のだめ の 命令 は , 

DEFCHR$ (n) 
СТ, n は 重ね て 定義 し よう と する 文字 の アス キー コー ド 
で す 。 こ こ で は , ROMCG の カタ カナ の 「 ア 」 に 対応 する 
RAMCG に , いま 作っ た , 「 あ 」 を 定義 むす る こと に し まし ょ 
う 。「 ア 」 の アス キー コー ド は , 177 で すか ら , 

DEFCHR$ (177) ニ A$ 十 A$ 十 A$ 
と し ます 。A$ が 3 つ あ る の は , それ ぞ れ , W, Ж, ЖЕН 
じ デ ー タ を や セット する だ めで す 。 ここ で は , 普通 の 文字 や 
記号 と 同じ よう に 白色 で 「 ア 」 と 表示 る せ た い の で , в, 赤 , 緑 と も 同じ デー タ に な る わけ で 


а? 181088111 ЕЕ =. 


す 


N 


[CTRL」+ 急 で RAMCG に 切り か え , カ ナ モ ー ド に し て | を 押し て くだ さい 。 ひ 6 が な の 「 あ 」 
が 表示 きれ ます 。 同じ よう に し て ほか の ひら が な も 作っ て み ま し ょ 0 

キャ ラク タ ・ ジ ェ ネ レー タ に セッ ト き され て いる デー タ の 内 容 は , CGPAT$ と いう 関数 を 使っ て 
調べ る こと が で きま す 。〔 プ ログ ラム 6- 1 〕 は , アス キー コー ド 177 の デー タ を 調べ る だ た め の も 
の で す 。 
〔[ プ ログ ラム 6 - 1 〕 


18 CLS 

28 аф-СБРАТЪ (177) 

за FOR Ісі ТО LENAS) 

40 PRINT ASC (MIDS (AF, 1,122: 

50 NEXT:PRINT:PRINT 

50 A$=CGPATS (177) 

78 FOR Ісі ТО LENAS) 

ва PRINT НЕХФ (ASC (MIDS (АФ, 1,1222: 
Фа NEXT 


この プロ グラ ム を 実行 し て みる と 画面 6- 1 の よう に , まず 32 個 の 数 値 が 表示 され ます 。 最初 
の 8 個 の 数 値 は 。 ROMCG に 定義 きれ て いる 文字 の デー タ で す 。 カ タカ ナ の 「 ア 」 の デー タ tk 
べ さて みて くだ る さい 。 


[画面 6- 1 〕 
ROM CG RAM СОЯ 
г 1 
124 4 20 24 16 16 32 0 32 252 40 124 170 146 100 0 
RAM CG 赤 RAM СС 


г 1 Гг 1 
32 252 40 124 170 146 100 0 32 252 40 124 170 146 100 0 


ROM CG RAM CG 青 RAM CG 赤 КАМ CG 緑 
Р | ри — ЕН СТІ 
7С414181010200 20FC287CAA92640 20FC287CAA92640 20FC287CAA92640 


次 の 8 個 の 数 値 は RAMCG に 定義 きれ て いる 青色 の デー タ , さら に 8 個 ず つの グル ー プ の を 
れ ぞ れ が 赤 。 緑 の デ ゲー タ と な っ て いま す 。 こ れ は , ひら が な の 「 あ 」 の デー タ で , 文字 を 白 で 
表示 する た め に , 青 ・ 赤 ・ 緑 と も 同じ デー タ を 用 意 し まし た か ら , ここ で は 同じ 数 値 の 並び が 
3 回 繰り 返さ れ て いま す 。 

を の 下 の 文 字 の 並び は , 同じ デー タ を 16 進 数 で 表記 し た も の で す 。 

ST, これ まで の 作業 が 理解 で きれ ば , RAMCG の 各色 に つい て , 重なっ た と き の 色 を 考え 
て デー タ を セッ ト す る こと に よっ て ゲー ム で 使う キャ ラク タ も 作る こと が で きま す 。 

図 6- 4 は , TRAIN X1 の B (新幹線 の 中 間 の 部 分 ) の ドッ ト の パタ ー ン を 3 色 そ れ ぞ れ 
に つい て 調べ た も の で す 。 ど こ が ど ん な 色 に な る か 考え て みて くだ さい 。 

PCG で 作ら れ た キャ ラク タ に つい て も , CSIZE や CFLASH, CREV な どの 命令 を 使う こと が 
で きま す 。 先ほど の 「 あ 」 の よう に , 白 で 設定 し た キャ ラク タ に 関し て は , COLOR 命 令 に よる 
色 指 定 も, ROMCG の キャ ラク タ と まっ た 同じ に 行なう こと が で きま す 。 
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ゲー ム の キャ ラク タ に は , PCG で 作っ た 文字 を 何 文字 か 組み 合わ せ て , 大 き な キ ャ ラク タ と 
し て 使っ て いる も の が あり ます 。 ゲ ー ム 作り の 参考 に し て くだ きい 。 


“о т%0ф%-------------.-....................2...................... 

| Error の チェ ッ ク 

ON ERROR 文 に よっ て エラ ー 処 理 ル ー チ ン を 作 つ だ 場合 , 正しく エラ ー 処 理 が 行なわ れる 

が どう が チエ ッ フ し て お ぐ こ と が め 要 で す 。 故意 に 行 な つて 簡単 に 発生 させ られ る エラ ー な ら 

よい の で す が , 多く の 場合 , エラ ー を 発生 させ る の に ひど こぐ 手 間 が か ひかり ます 。 と ころ が , ERROR 
文 を 使 つて , 希望 の エラ ー を ご く 科 単に 発生 させ る こと も で きる の で すき 。 

ERROR NELT, n に 発生 させ だ い エ ラー コー ド を 入れ ます 。 この ステ ー ト メン ト が 実行 
さぶ れる と , 変数 の 内 容 な ど に は 一 切 関係 な こそ の エラ ー が 発生 し ます か ら , エラ ー の 処理 ルー 
チン の 働き を チエ ッ フ する こと が で きま す 。 だ と えば , 

INPUT “A=”, А: ERROR 11 
| と すず すると, A の 値 に 関係 な く , ERROR 11 が 発生 し だ こと に な り ま す 。 
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ве X1 は ライ バル 


@ バ パソ コン ゲー ム の 3 つの タイ プ 


パパ ツユ コン の きる ま ざ ま な 用 途 の うち で , 忘れ て は な ら な い の が みな さん に お な じみ の ゲー ム で 
し ょ う 。 パ ツユ コン 用 に も だ 《 さ ん の ゲー ム が 市 販 さ る れ て いま す が , これ ら 6 を 大 き 〈《 2 つの タイ 
プ に 分 ける こと が で きま す 。 ま ず 1 つ は , 「 ス ペー ス ・ イ ン ベ ペー ダー」 を 代表 と する , 反射 神経 
を 競う タイ プ の ゲー ム で す 。 こ れ を 一 般 に 「 リ アル ・ タ イム ・ ゲ ー ム 」 と か ,「 反 射 神経 型 ゲー 
ム 」 と か 呼び ます 。 X 1 の 優れ た グラ フィ ッ ク 機 能 と サウ ンド 機能 を 活か せ ば , ゲー ムセン タ 
ー の テレ ビ ゲ ー ム に 負け な い ゲ ー ム を 作る こと が で きま す 。 も う 1 つ は ,「 オ セロ 」 の よう に , 
思考 力 に 頼る タイ プ の ゲー ム で す 。 その 中 で も 特に , コン ピュ ー タ が 自ら 思考 し た り 判 断 し た 
DLT, 人 間 を 相手 に 対戦 する よう な も の を ,「 イ ン テ リ ジェ ント ・ プ レー ヤ ・ タ イプ 」 の ゲー 
ム な ど と 呼び ます 。 

また , 近頃 は 両方 の 要素 を 取り 入れ た だ, 「 シ ミュ レー ショ ン ・ ゲ ー ム 」 と 呼ば れる も の も あり 5 
ます 。 現 実に 起こ りう る 出来 事 を コン ピュ ー タ で 再現 し , これ に 対す る 人 間 の 判断 力 , 思考 力 
な ど を 試す も の で , これ は ゲー ム だ け で は な く , 実際 , りっぱ に 実用 と し て 役立っ て いる も の 
も あり ます 。 た と えば , パイ ロッ ト 訓 練 生 が ,「 フ ライ ト ・ シ ミュ レー タ 」 と 呼ば れる 機械 で 離 
着陸 の 訓練 を する こと は , みな さん も ご 存じ で し ょ う 。 

ここ で は , 思考 型 ゲ ー ム と 反射 型 ゲ ー ム の 簡単 な も の を 作っ て み ま し ょ う 。 実際 に プロ グラ 
ム を キー イン し な が ら , ゲー ム を 作る と き に 必要 な 考え 方 や 合理 的 な 処理 の 方 法 を 学ん で くだ 
きい 。 


@X 1 に 思考 力 を 与え る 


3 x 3 の 枠 を 書い て , 二 人 で 交互 に つと X を 
書き 入れ て いき , どちら か が 一 直線 に な らん だ 
6 勝ち と いう ゲー ム が あり ます 。 こ の ゲー ム は , 
その 人 性格 上 , 先攻 の 方 が 勝つ こと が 多い の で す 
が , ゲー ム を 進め る だ ため の 判 断 も 少な くん, また 
考え 方 比較 的 簡単 な の で , まず これ を と りあ 
げ て プロ グラ ム 化 し, X 1 を 相手 に 遊べ る よう 
に し て み ま す 。 
思考 型 ゲ ー ム を プロ グラ ム 化 する とき に は , 
"その ゲー ム の ルー ル は も ちろ ん , 勝つ た め の 条 
件 や , 有利 な ゲー ム 展 開 の 方 法 を よく 知っ て お か な けれ ば な り ま せん 。 この ゲー ム の ルー ル は , 
必ず 2 人 (ここ で は 人 間 と X 1) が 交互 に ひと メ を 書い て いく と いう こと だ け で す 。 そして, 
「 勝 ち 」 と な る の は , 〇 か ※ の どちら か が 一 直線 に な らん だ と き で す 。 勝つ た め に は , 一 直線 
に 並べ や すい よ うに 自分 の マー ク を 書い て いく と と も に , 相手 の マー ク が 2 つ な ら ん だ と き に 
ー1 ア ロー тата1а1й ÅÅ 
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は 必ず , 3 つ 目 の マス を 自分 の マー ク で お きる えて お か な けれ ば な り ま せん 。 
[3 並 ベ ゲー ム の プロ グラ ム ]〕 
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687 iO: 10: а STRATFORD С.С.С aR 
70 + 2—1 
80 “ 1283 4 2 

90 * 

1988 “ 


110 HIDTH48:SCREENB, й:С! 54 

120 DIM BAN (3. 3), MAN (3, 3) DOMP (3. 3) 

130 созив" 183" :G6G0SU3"77" 

140 'CONSOLEG, 25, 24, 15 

150 GUSUB "シュ ンド ロ ド マリ 

168 GOSUS "СНЕС" EGOSLUB "№27. " : 50508 "TLR" 

178 IF 55=1 505128 "MAN" : Б0503 "СЕС" : 003503 "ロン テイ "55 ロ SUB "COM? " : 560508 
"CLR" ELSE GO0SU8 "СНЕС" : БОБОВ "Сме " : 50528 "С. S" : GOSUB "СНЕС " :50651Е" 

ロフ テイ "EGOUSUB "СВ": 50508 "MAN" 

188 GOTO 160 

190 ENO 

208 LABEL "77" 

218 со: ок? 

220 FOR Ісй То 3 

238 LINE Û, 1ж565) - (168, 1ж96) 

248 LINE (1ж54, 82-<1Іж56. 158) 

250 NEXT 

260 FORI=: TQ 3 

270 LOCATE Іж?-5.22:Р?ІМТІ 

288 LOCATE21, IX7-4:PRINT I 

290 МЕХТ: ВЕТЦЕМ 

300 “ABEL "мах" 

318 COLORS:LOCATEZ4, QIPRINT" コニー シマ スカ ニー や リ 

320 LOCATE24, 2: INPUT aS XMF ХМФ: OR ХМ>З THEN ВЕЕР :8ЕЕР:50Тт03 
99 

330 і ОСАТЕ24, 4: 1МРИТ "85", YM IF YM<1 OR ҮМ»З THEN BEEP:BEEP:GOTO3 

30 

340 ТЕ MANCXM, YM) =1 ОВ СОМ(ХМ, УМ) =1 ТНЕМВЕЕР: ВЕЕР: СОТОЗЕЙ 

350 CIRCLE (ХХМж56-28, ҮМж55-28), 20, 4 

360 МАМ ХМ. ҮМ) =1 

370 K=K+1 iRETURNI 

380 LABEL"CHEC" 

390 FOR Ізі То З:ҒОВ J=: TD 3 

400 HT C1) =HT Ci) +MAN (CI, J? SHY C1) =HY СІ) +МАМ С, 1) 

418 CT C1) =CT C1) +СОМ(«Т., JI CYCLI =CYKTD+EH (CT。 ID 

420 BANCI, J) =ВАМ (І, J) +мАМ СІ. J} +COM™M (1, J? 

439 NEXT 

440 HNC1) =HN (1) +MAN (І, ID SHNCE?} «ым (2) + МА E = 1. 1) 

458 СМ(1) =ÛEN(C1} +COMCI IP SCN C2) SCN CZI +СОМ (4 - 14 12 

460 NEXT 

470 RETURN 

488 LABEL "CLR" 

498 FOR Ісі TO 3 

500 HTXI)=0:HY(<CI)=08:CTú(I)=B:CY(CI)=B:CN(ID =B:PIS KI) = 

518 NEXT 

520 RETURN 

530 LABEL "соме" 

548 IF RND C1) >. 8 АМО Зама, 2) =й THEN XU=2:YC=2:GDSUSSERB:ISETUSN 

550 FOR Ісі 70 3: 1 CTXI,)=2 THEN FOR J=1 То 3:15 ВАМ1./2-й0 THEN 
ХС-1:ҮС-.:6050868й :507057й ELSE NEXT ELSE NEXT 

568 FOR Ісі ТО 3:IF CYCID=2 THEN FAR 15) ТО 2: | BANCJ. 1) =0 THEN 
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XC=J:YC=I:GOSUBSRa:GO ロ さ デビ 
570 IF CN ほう =2 THEN РОК J=1 
SUB4&80:GOTO478 ELSE NEXT 


580 IF СМ‹2) =2 THEN FOR J=1 70 S:IIF Зач(а-Л, Г) ай THEN ХС=4-Ј:ҮС= 
J:G0SUB488:GOTOS78 ELSE NEXT 

590 FOR Ісі TO 3:IF HT(I)=2 THEN FOR J=1 TO З:1Е B3ANCIÀJy=0ü0ü THEN 
XC=I:YC=J:G0SUB480 :5070579 Е ЗЕ NEXT Z-SE NEXT 

600 FOR Ісі ТО 3: ТЕ ЧҮ ›=2 THEN 5205 J=1 TÜ З:1Р ЗАМЫ, ID)=0 THEN 
ХС=Ј:ҮС=1:60508580:50Т70570 ELSE NEXT Е ЗЕ NEXT 

618 IF HN(1)=2 THEN FOR Ј=1 TU 3:15 BANCJ,J)=ü8 THEN XC=J:YC=J:G0 


508&80:60Тт0670 ELSE NEXT 

620 IF HN(2) =2 THEN FOR J=1 ТО 3:IF 3AN(4-J. 7) =й THEN XC=4-J:YC= 
7:6050в8680:6070670 ELSE NEXT 

630 FOR Ісі TO 3 STEP 2:ҒОВ J=1 70 3 STEP 2 

640 IF BANCI, Ј) =0 THEN XC=I YC=J GOSU8SSA: GOTOS7 A ELSE NEXT:NE 
XT 

る 59 FOR Ісі TO 3:FDR J=1 TO 2 

660 IF BANCI, 1) -й THEN ХС=1:ҮС=1:560508480:607057#0 ELSE NEXT:NEXT 
670 K=K+1:RETURN 

688 LINE (хСж55-9й, уСжяв-5й) = (хСж5в-е2, уСжов-8)„РЗЕТ, 2 

690 LINE (ЖСж56-8, Сж55-48) - (хожа4-48, “Сж55-8), РЗЕТ, 2: COM (ХС. YC) = 
1: RETURN 

708 LABEL "ロン テイ" 

710 IF CNX1)=3 ОК СМ) =3 THEN IN ああ = リコ ン ヒ デュ ー タ リョ ロロ イロ ニー イタ ウ ロ 

728 IF НМ‹1) =3 ОВ НМ(22-3 THEN КІМФ= "УР "16070 796 

730 FOR Ісі TO 3 

740 IF СТ(1) =3 OR СҮІ) =3 THEN ЯІМФе-"122/Е%1-2":50Т0 
750 IF HTCI =3 ОК HY(I)=2 5 

760 NEXT 

7708 ТЕ КО? THEN LOCATE24, 22: 
780 RETURN 

798 LOCATE24, Ә2ІРБІМТМІМФ") ПЯ ' i :ЕМО 

800 LABEL ">" дү“ р" 

810 1 ОСАТЕ24, B:C5SN1:COLGST7Z:IPRE ТОР: LOA ESET L СВЕЛ: СО. 085: Ре ТМ 
Тет = 1" 

828 | ОСАТЕ24. 3:СБЕМІ1: СП: GOR7:PR IS TURSI ОСатЕ2?, 4: СВЕХ: СО! ОВ5: 2913 
すう ウラ « 2" 

830 і ОСАТЕ24, 6: INPUT "トド チラ ニシ マズ カー "ミロ 

840 IF UM く 1 ОК ММм>2 сотозза 

850 PLAY "О5А1+С" 

860 FOR Ісі TG RND (1) ж1 8 + 1й 

870 UR=I МОО 2: 1Е UR=1 ша СОІМФ=0МФ Е ЗЕ CDINS=URS:UR=2 

880 СО: ОК6: СБЕМ: | ОСАТЕ 28, 15: РВТАТ" 1 " 

890 с осатЕгв, 14: РК МТ" すし た で 

900 CGEN1:LOCATE28. 15: PRINT COINS:PALISE 1 

910 NEXT:CGEN:PLAY" a +С1а" 

920 COLORS:IF UM=UR THEN 5651: ОСАТЕ 24, 21: РЕТМТ "77 Ят“ t=" ELSE 6 
G=2:LOCATE24, 20: PRINT "526° 1-95" +" 

930 PAUSE18:LLS 

940 RETURN 

950 АВЕ "108" 

950 ОЕҒСНЕ% (409) =НЕХСНЕ С" ВЯПЕВИВВЕВВЯВИЙВИТ 1 
342F2F2F2") 

970 DEFCHR$ (41) НЕХСЯК + て" 提 回 ロロ ロロ BBMF ビ ご と ビビ ビア ニア ビ ご コピ ビュ ビ ロ ア ビジ ビジ ビジ ア 
ら 2 る 13F1F9 ア ") 

980 ОЕЕСНКЕ (42) -НЕХСНЕ Ф С" UGA DT - ЗЕ ?ЗАССАЕЗСАЙ? |ЕЗЕ 7? 
Е7ЕЕЕЕЕЕЕ") 

990 ОПЕЕСНКЕ (43) =HEXCHRS { " ПОЙЙЙЙЯЙВВЙЯЙВВИЕР Е ВЕС?Е 7ЕЗЕ 1 に ロア ビビ F ア ビア 時 
177371Е8?") 

1000 DEFCHRS (45) <НЕХСНЕ В С" ВйЙВЙВаПИЯВАЙЯАЙЙЙС ЙЕ ЗЕ СЕЕБС-СРЕРЕЕЙЕВЕС 
йЕ4 5575757") 

1010 ОЕЕСНЕЗ (45) -НЕХСНЕ 5 с "ай ВЯВЯЯВЯРАЙЯРИЙЕЕС <СЕС ЕЕ СЕСЕВЗЕ 0576747 
66ӨЕЕСЕЗВЕЙ "2 

1020 ОЕЕСНКЪ (45) <НЕхС-Е вс "араййййвяйЕЯИЯЯВЕ ВЕЗЕСТЕ ЗА БЗЕ ВЗЕВЕЗЕС 
ЕЕРЕЕЕЕЕЕЕ") 
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таза ОЕЕСНЯ В (47) ЕНЕХС- Яв "арррагеварррррайз ст TOE 
8676 74ЕВЕЙ") 


1949 OM$=CHRS (40) +CHRS (RHIF, &H1D) + Сев (21) +CHRS (&H 18) +СНЕ (44) +С 
HR$(&H1F, &H1D) +CHRS (459 


10850 UR を $=CHR$ (42) +CHRS (&H1F, 8н10) +CHRS (43) +CHRS (&H1E) +CHRS (46) +С 
HRS (СН Е, &H1D) +CHRS (47) 

1068 RETURN 

27, ゲー ム を する た め の 枠 を 描い て な お きま し ょ う 。 そし て , 3X3 の 枠 に 縦横 た も それ ぞ 
れ 1 か ら 3 の 番号 を つけ て なき, どの マス 目 に マー ク を 書く か を この 番号 に よっ て 指定 する よ 
うに し ます 。 右上 の マス な ら 6 (1, 3) と いう 具合 で す 。 こ の 部 分 を ひと つの サブ ルー チン に 
まとめ て 「 ワ ク 」 と いう ラベ ル を つけ ます 。 

コン ピュ ー タ に 判断 を る きせ る た め , ゲー ム 盤 の 状態 を 記憶 きせ な けれ ば な り ま せん 。 その た 
め に 3 つの 配列 変数 BAN, МАМ, COM を 用 意 し て な お きま す 。 こ の 3X※ ぶ 3 の 配列 は , それ ぞ れ 
そっ くり ゲー ム 盤 と 対応 し て いま す 。 変数 MAN は , 人間 が マー ク を 書い た と ころ だ け を 記憶 し 
ます 。 同じ よう に 変数 じ COM は, コン ピュ ー タ が マー ク を 入れ だ た と ころ を , そし て , ВАМ, Z 
の 両方 を 重ね た も の , つま り , 実際 の 盤面 の 状態 を 入れ て お きま す ( 図 6-5)。 
(96-5) 


人 間 = 〇 
a a 


配列 MAN 配列 COMP 配列 BAN 


信二 次 元 配 列 で 合理 的 に 


85, と で と で プロ グラ み ム を 見 て くだ きい の 。 

120 DIM BAN (3, 3), MAN (3, 3), COM (3, 3) 
DIM 文 で 3 つの 配列 変数 の 配列 宣言 を 行なっ て いま す が , こ れ ま で と は 少し 形 が 違っ て いま す 。 
変数 名 の 後 の の カッ コ の 中 に は 2 つの 添字 が 書か れ て いま す 。 こ の よう な 配列 を 二 次 元 配列 と 
いい ます 。 

DM A (3, 3) 
と する と , 変数 名 A に 3 x 3 個 の 配列 要素 が 準備 そ され ます 。 それなら DIM MAN(9) と する の 
と 同じ で は な いか , と 思う 人 も いる で し ょ う が , これ まで の 添字 が 1 つ だ け の 配列 (一 次 元 配 
я) を 使う と , それ ぞ れ の マス 目 に 順番 に 番号 を 振り あて て いか な けれ ば な り ま せん 。 


ОЕ ЫЕ] “е 


だ た と えば , 表 6- 1 を 考え て みて くだ さい 。 
この 表 の マス 目 に 一 次 元 配列 を 使う と ,「B 支 店 の トラ ッ ク 売 り 上 げ 台 数 」 を る が し 出す に も 
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配列 の 添字 を 順番 に る で っ て いく こと に な り ま す 。 し か し 二 次 元 配列 に する と , より 合理 的 に 
る で っ て いく こと が で きま す 。 添 字 の 前 の 数 字 を 「 行 」、 後 ろ の 数 字 を 「 列 」 と し まし ょ う 。A 
支店 の 総 売り 上 げ 台 数 は , (2, 4) で る が すこ と が で きま す ( 表 6-2)。 


表 6-1 表 6-2 
、 |ж 店 | A 表 店 | вж | а и 本 
3 | 5 | 20 CEE (1, 
小型 自動 車 15 ЕЕ 26 小型 自動 車 (2, 
F = @ 2 2 0 2 4 к> 9 ? | (3, 
° | 2 50 合 ЕР | (4; 


この ゲー ム で も , それ ぞ れ の マス 目 に 1 か ら 9 ま で の 番号 を ふる より も , 二 次 元 配列 を 使っ 
た ほう が 合理 的 な ゲロ グラ ム を 組む こと が で きま す 。 


人 @ 箱 の 中 に 記憶 を 入れ よう 


これ で 盤面 の 状態 を 記憶 さき せる た め の 箱 が 用 意 で きま し た か ら , 次 は 釘 の 中 へ 記憶 を 入れ る 
方 法 で す 。 先ほど の 表 の よう に , マー ク の 書か れ だ た と ころ に 対応 する 配列 要素 を 1 に , 何 も 書 
か れ て いな いと ころ を 0 と し て 区 別 し ま す 。 こ れ で 盤面 上 の 状態 が 数 値 に よっ て 表現 る れる こ 
と に な り ま す 。 

Ли», キー ボー ド か ら マ ー ク を 入れ る マス 日 の 縦横 の 番号 を 入力 する 部 分 を , サブ ルー 
チン “МАМ と し て まとめ まし た 。320 行 と 330 行 の 後半 で , 誤っ た 番号 が 入力 され な いよ うに 
し て いま す 。 こ の よう な 処理 を し て お か な いと , あり えな い デ ー タ に 対し て も , その まま 受け 
つけ られ て し まい , 艦 の 外 に マー ク が つい て し まう と いっ た 不都合 が 生じ ます 。 さらに, АЖ 
な 判断 を 340 行 で 行なっ て いま す 。 変数 MAN (ХМ, УМ) と 変数 COM (ХМ, YM) の 中 身 の チ ェ 
ッ ク で す 。 縦 と 横 の 番号 を 入れ よう と する と き , 2 つの うち どちら か の 配列 変数 の 中 身 が 1 に 
な っ て い だ た だら, そこ に は すでに マー ク が 書か れ て いる わけ で すか ら , も う 一 度 入 れ 直 す よ うに 
し て あり ます 。BEEP 命 令 で プ ブザー を 鳴ら し , も うぅ 一 度 入 れる よう に 注意 を うな が すこ と も し て 
いま す 。 こ の ゲー ム で は , すべ て MAN, COM, BANO 3 つの 配列 変数 の 中 身 を 調べ て , ЖШ 
上 の 状態 を 判断 する よう に な り ま す 。 

350 行 で は , 実際 に 盤面 上 に 〇 を 書い て いま す 。 縦横 の 番号 か ら , CIRCLE 文 の 中 心 を 割り だ し 
て いま す 。 


Өл, 後 攻 を 決め る 


次 に , 先攻 ・ 後 攻 を 決め る た め の サ ブル ー チ ン 「 ジ ュ ン バン 」 を 見 て くだ さい 。 ここ で は , 
10 円 の コイ ン を 投げ て (? ) その 裏表 に よっ て 決め る よう に し まし た 。 コ ユイ ン の 裏 と 表 の 図案 
を , 950 行 か な ら の サブ ルー チン 「10 円 」 で PCG を 使っ て 作っ て いま す 。 こ の コイ ン は , 図 6-6 
の よう に 4 文字 分 の キャ ラク タ で 作ら れ て いま す 。 PRINT 文 で 画面 に 描く と き に , 1 回 の PRINT 
文 で 全体 を 表示 で きる よう に , つま り 4 文字 分 の キャ ラク タ を 1 つ に まとめ て し まえ る よう に 
工夫 し て あり ます 。 


=== 1816861118 


T: 
m 


6 X1 と 遊ぼ う 


1040 行 と 1050 行 で 使っ て いる カー ソル 移動 コー ド が それ で す (46-7). 1 文字 分 の デー タ 
の 次 に カー ツル を 移動 きせ る た め の コ ー ド を 入れ て つない で いま す 。 こ うし て お け ば , ZOX 
字 変 数 の 内 容 が PRINT で 表示 る きれ る ときには, カー ツル の 移動 が 行なわ れ て , 1 つの 文字 変数 に 
よっ て 2 行 に わた る キャ ラク タ が 表示 で きる と いう わけ で す 。 

(86-7) 


CHR$(&HID) 


順番 を 決め る に は , FOR て NEXT の 終了 値 を 乱数 に し て お き , 制御 変数 が 奇数 の と き に は 表 を , 
偶数 の と き に は 裏表 示す る よう に し て お きま す 。 こ の FOR て NEXT の ルー プ で 10 円 玉 が 回 転 す 
る 回 数 が 決ま り ま す が , 最低 で も 10 回 は くる くる と 回 る よう に な っ て いま す 。FORCNEXT を ぬ 
けた と き の 制 御 変数 が 偶数 か 奇数 か が , つま り , コイ ン が 表 で 止ま っ た か 裏 で 止ま っ た か を 調べ 
ます 。 裏表 どちら に する か は , 変数 UM に 数 値 で ど 入 力 す る よう に し て あり ます か ら , 制御 変数 UR 
が UM と 一 致し て いれ ば 人 間 の 先攻 に , 異な っ て いれ ば コン ピュ ー タ の 先攻 と な り ま す 。 先攻 か 
後 攻 か と いう デー タ は , 変数 SG に 代入 し て お いて メイ ン ル ー チ ン で ゲー ム ス タ ー ト の 順番 の 判 
断 に 使っ て いま す 。 

Ж, いよ いよ コン ピュ ー タ に 考え る せる 方 法 に つい て 説明 し ます 。 
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5-3 X1 に 知能 を 


@X 1 を 対戦 相手 に し た て よう ノ / 


この ゲー ム の よう に , コン ピュ ー タ に 対戦 の 相手 あ を る せる に は , 自分 が ゲー ム を し て いる と 
き に どん な 考え 方 を し て いる か を よく 分 析 す る こと が 必要 で す 。 そ れ を うま く プ ログ ラル 化し 
な けれ ば , X 1 は 優秀 な 対戦 相手 に は な っ て くれ ませ ん 。 人 間 が 考え る その 考え ぇ 方 を X 1 に 与 
える , いわ ば X 1 に 知能 を 与え る 作業 が , ここ で 行なう プロ グラ ミン グ の 中 心 で す 。 

この ゲー ム の 考え ぇ 方 を 書き 出し て み ま す 。 

1. 最初 に 自分 の マー ク を 置く と き は , 四角 に 置く 。 

2. 自分 の マー ク が 2 つ 並 ん で いて , 残り が 空い て いれ ば 必ず そこ に 打つ 。 

3. も し 相手 の マー ク が 2 つ 並 ん で いて , 残り の 1 カ所 が 空い て いた ら 6 必ず を こ に 打っ て , 

相手 の 動き を 止め る 。 

4. 2 と 3 の 条件 に あう と ころ が な けれ ば , 他 に 空い て いる マス 目 の う ち 斜 め の 角 に 打つ 。 

5. 4 も だ め な ら , 残り の 適当 な と ころ に 打つ 。 | 

大 ま か に まとめ る と 以上 の よう に な り ま す (4, 5 に つい て は , まだ 考え ん なく て は いけ な い 
部 分 も あり そう で す が , 一 応 こ こま で の 考え ぇ 方 で 進め て いく こと に し ます )。 

コン ピュ ー タ に 判断 を させ る 順序 も , ここ に 書き 出し た 順 で うま くい 〈 く で し ょ う 。 1 の 判断 
は 一 応 後に 回 すこ と に し て , 2 の 判断 に つい て 考え ん て み ま す 。 こ れ か ら あ と は , コン ピュ ー タ 
の 側 に 立っ て 判断 の 条件 や 考え て いき まし ょ う 。 コ ンピュータ に 則 し て いき ます か ら ,「 自 分 」 
と いう の は コン ピュ ー タ 自身 の りこ と に な り ま す 。 


念 自 分 の マー ク を 探す 


まず , 自分 の マー ク が 2 つ 並 ん で いる と ころ を きる が し 出さ る ね ば な り ま せん 。 自分 の マー ク の 
置か れ た 位置 を 記憶 し て いる 配列 変数 COM の 内 容 を 調べ ます 。 こ の 配列 の 要素 の うち , 1 に な 
っ て いる と ころ が 自分 の マー ク が すでに 書か れ て いる と ころ で すか ら , 図 に 示す 8 通り の 方 向 
に な らん だ 配列 要素 を 加え て いき ます ( 図 6- 8 )。 こ の 作業 を し て いる の が , サブ ルー チン 「CHEC」 
D, 410 行 と , 450 行 で す 。 図 6-8 の 1 か ら 3 の 縦 の 並び が 配列 変数 CT (1) から 6CT (3) с, 
4 か ら 6 の 横 の 並び が CY (1) か ら 6CY (3) C, 7 と 8 が それ ぞ れ CN (1) と CN (2) СК 
入る きれ ま す 。 こ れ ら 6 の 配列 変数 に つい て は , 配列 宣言 を 行なっ て いま せん が , X1 で は 特に 宣 
言 る きれ て いな い 配 列 に つい て は , 要素 の 数 は 10 と し て 扱わ れ ま す 。 言い か えれ ば 有 要素 の 数 が 10 
以下 の と き は 配列 宣言 を し な く て も よい こと に な り ま す 。 配列 変数 CT, СҮ, CN の 中 の 値 は 最 
初 は 0 で す が , 配列 変数 COM の 中 に 代入 きれ た 値 が 0 で な けれ ば , つま り ど こ か に 自分 の マー 
ク が 置か れ て いれ ば その 数 に 応じ て CT, СҮ, CN の 値 も 増え る こと に な り ま す 。 

サブ ルー チン 「COMP」 の 中 で は , この 8 つの 配列 変数 を 調べ , も し その 値 が 2 に な っ て い . る 
も の が あれ ば , と いう こと は 自分 の マー ク が 2 つ 並 ん で いる と ころ が あれ ば で す が , その 配列 
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変数 に 対応 する 列 を もう一度 確 め る 作業 も し ます 。 
自分 の マー ク だ け で は な く , 相手 の マー ク の 有無 
も 調べ で な けれ ば な り ま せん 。 両方 の マー ク の 有無 
が 同時 に 記憶 きれ て いる , 配列 変数 BAN 
を 調べ ます 。 配 列 変数 BAN に は , 2 人 の プレ ー ヤ 
の どちら か の マー ク が 置か れ て いれ ば 1, ど 
ちら も 置か れ て いな けれ ば 0 の 値 が 代入 され て い 
ます か ら , 0 の と ころ が あれ ば そこ に は 自分 の マ 
ー ク を 書く こと が で きる わけ で す 。X を 書く サブ ル 
ー チ ン を 呼び 出し て マー ク を 書く と 同時 に , その 
位置 に 対応 する COM (3, 3) の 要素 を 1 に し ます 。 
これ で を その 1 列 に X が 3 つ な ら ん だ わけ で すか ら , 自分 の 勝ち と し なり ま す 。 

勝負 の 判断 は , サブ ルー チン 「 ハ ン テ イ 」 で , 合計 が 3 に な っ て いる 列 を 探す こと に よっ て 
行なわ れ て いま す 。 もし, 配列 変数 CT, СУ, CN の 値 が 2 に な っ て いて も , 残り の 位置 が 0 で 
な けれ ば , そこ は 相手 (АШ) に よっ て 止め られ て いる わけ で す 。550-580 行 の 少し 複雑 な 条 
件 判断 で この 確認 を し て いま す 。 ここ で 使わ れる 変数 XC, Y( は X を 書く 座標 位置 を 決め る た め 
に 使わ れ ま す 。 確 認 の 結果 3 つの マー ク を 並べ る , と いう 条件 で 打つ と ころ が な けれ ば , 次 の 
判断 に 進み ます 。 


⑧ 相 手 の マ ー ク を 調べ る 


今度 は , 相手 の マー ク に つい て 調べ な けれ ば な り ま せん 。 2 つ 並 ん だ と ころ が な いか どう か 
を る が し ます 。 こ れ も ま っ が だく 同 じ 方 法 で , サブ ルー チン 「CHEC」 を 使う こと に よっ て , 配列 
変数 MAN の 中 身 を 調べ , それ ぞ れ の 並び を 配列 変数 HT, HY, HN に 代入 し て お きま す 。 も し 
配列 変数 の 内 容 が 2 に な っ て いる 列 が あっ て 残り の と ころ が 0 な 6 必ず その 位置 に 自分 の マー 
ク を 打っ て お か な いと , 次 の 回 で 相手 側 の 勝ち に な っ て し まい ます 。590 か ら 620 行 で この 判断 
を 行なっ て いま す 。 

これ も 打つ と ころ が な けれ ば , 斜め の 角 で 空い て いる と ころ を さる が し ます 。630 と 640 行 が こ 
の 四角 の 調査 と 判断 を 行なう 部 分 で す 。 

盤 の 四角 も 空い て いな けれ ば , 残り の マス 目 の う ち 空 いて いる と ころ に 打つ こと に し ます 。 
650 と 660 行 が この 判断 で す 。 

сас, 2 か ら 5 5 まで の 判断 を 行なう こと が で きま し た 。 それぞれ の 場面 で いろ いろ な 判断 
を し て いま す が , 考え ぇ 方 は どれ も 同じ で す 。 配列 変数 を 使う と いか に 合理 的 に 調査 や 判断 が 行 
な える か が わか り ま す 。 1 に つい て は , は じ め の と き は 2 と 3 は あり 得 な いわ け で すか ら , 1 
番 先 に 判断 を 行ない ます 。 


@ そ の ほか の プロ グラ ミン グ テ ク ニッ ク は ? 
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全体 の プロ グラ ム は , これ まで 見 て きた こと で わか る よう に , 細か い サ ブル ー チ ン の 集まり 
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で で き て いま す 。 その 中 で も , ユン ピュ ー タ に 判断 させ る , 「COMP」 は , 一 番 大 きい も の に な 
っ て いま す 。 人 間 な ら 一 目 で 判断 で きる こと も プロ グラ ム 化 する と か な り の 量 に な る こと も わ 
か り ま す 。 人間 の 頭脳 の 優秀 る を 表わし て いる と いえ る で し ょ う 。 

170 行 で は , ЖЖ, 後 攻 の 順番 を 示す 変数 SG の 値 に より , サブ ルー チン を 呼び 出す 順序 を 変え 
る と いう 作業 を し て いま す 。 サ プ ブルー チン 「CLR」 は , 配列 変数 CT, CY, CN の 内 容 を 毎回 す 
で て 0 に 戻す 操作 し て いま す 。 必要 な と き に , サブ ルー チン 「CHEC」 を 呼び 出し , それ ぞ れ 
の 配列 変数 の 内 容 が 0 で あれ ば , 盤 の 状態 に つい て の 最新 の 情報 を 得る こと が で きま す 。 逆 に 
いえ ば , この 設定 を し て お か な いと 正しい 判断 を る せる こと は で き な く な り ま す 。 勝敗 の 判断 
を する サブルーチン 「 ハ ン テ イ 」 も, この 配列 変数 に 基づい て 判断 を 行なっ て いま すか ら , 必 
ず こ の サブ ルー チン 「CLR」 を 呼ん で か ら 「 ハ ン テ イ 」 を 呼ぶ よう に な っ て いま す 。 

この ゲー ム は , 一 見 する と 中 央 を 先 に 取っ た 方 が 私 方 へ の つなが り が あっ て 良い よう に 思え 
ます が , 実は 先 に 1 カ所 角 を 取る の が 必勝 法 な の で す 。 し か し , 人 間 で あっ て も と き に は いき 
な り 中 央 を 取る こと も あり ます 。 コ ンピュータ に も この よう な 人 間 の 動作 を まね る させ る た め に , 
この プロ グラ ム で は 540 行 で , RND 関 数 を 使っ て コン ピュ ー タ に 気まぐれ の 動作 を きせ て いま す 。 
1 : 4 の 割合 で いき な り 中 央 を 取る よう に し て ある の で す 。RND (1) に よっ て 得 ら れる 数 値 
は , 0 以上 1 未満 の 数 値 (0 く <RND (1) < 1) ですから, 10 回 に 2 回 は あたかも 気まぐれ を 起 
こし た か の よう に コン ピュ ー タ は 中 央 の マス 日 を ね ら っ て きま す 。 
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細か い テ クニ ッ ク で は , 画面 の スク ロー ル エ リア を 決め る CONSOLE 文 が 使わ れ て いま す 。 通 
常 」. リ スト を と っ だ り し た 場合 , 一 番 下 の 行 ま で 行く と 画面 全体 が 上 に せり 上 が っ て 次 の 行 が 
表示 る され ます 。 こ れ を 「 ス クロ ー ル 」 と 呼び 。 CONSOLE 文 は この スク ロー ル の 範囲 を 決め る 命 
令 で ある こと は 前 に 説明 し まし だ た 。 こ こ で は , CONSOLE 命 令 で これ まで と は 少し 違っ た 範囲 指 
定 を 行なっ て いま す 。 X 1 で は スク ロー ルル 範囲 は 、 上 下方 向 だ び け で な く , 左右 方 向 に も 指定 す 
る こと が で きる の で す 。 図 6- 9 の よう に , 画面 の すみ の 部 分 ど だけ に スク ロー ル 範 囲 を 指定 する 
こと も で きる の で す 。 ま た , BJ 6 -10 の よ うに, 画面 の 任意 の 位置 に ちょ うど 窓 を あけ る 感じ で 
スク ロー ル 範 囲 を 作る こと も で きま す 。CLS 文 に よっ て , テキ スト 画面 を 消去 する と き に も , こ 
の スク ロー ル 範 囲 の 中 だ け で 行なわ れ ま すか ら , うま く 使 うと 効率 の 良い プロ グラ ム 作 り が で 
きま す 。 こ の プロ グラ ム は , 「 コ イン 投げ 」 の あと , 930 行 で 画面 の 消去 を 行なっ て いま す 。 
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と ころ が 140 行 で スク ロー ル エ リア を 画面 の 右側 の 方 だ け と 決め て いる た め , 表示 し た ゲー ム 
盤 に つけ られ た 番号 は 消 を える こと が あり ませ ん 。 まだ , ここ で 使っ て いる PAUSE 文 は , プロ グラ 
ム の 進行 に 待ち 時 間 を つく る た め の 命令 で , 後に 書く 数 値 が 待ち 時 間 の 長き る を 決め ます 。 1 を 
指定 する と 約 10 分 の 1 秒間 停止 し て か ら 6 次 の ステ ー ト メン ト に 移り ます 。 FOR て NEXT の 空 ま わ 
り ル ー プ より も , 正確 な 待ち 時 間 を 指定 する こと が で きま す 。 その 他 , この プロ グラ ム で は , 
IF て THEN で ELSE を 多用 し て いま すか ら 6, も う 一 度 |IF 一 THEN の 条件 判断 , 特に ELSE の 働き を 復 
習 し て お いて くだ きい 。 


BS 10116011 == == 


В-д ATTI = 


念 反射 神経 型 の ゲー ム 


あな た の X 1 は , 知能 が ある よう に 上 手 な 判断 を し て いま すか ? 
思考 型 の ゲー ム に 対し て , も う 1 つの タイ プ の ゲー ム を 反射 神経 型 , あ る い は リア ル タ イ ム ・ 
ゲー ム と 呼び ます 。 イ ン ベ ご ベー ダー ゲー ム の よう に 敵 が 攻撃 し て くる の を 迎え 撃つ タイ プ の も の 
е, テー ニス の よう な 球技 セ を ゲー ム 化 し た も の の こと で す 。 敵 の 攻撃 や ボー ル の 動き , それ に と 
も な う 状 態 の 変化 な ど に 対応 する , 反射 神経 の 鋭 る や すばやい 判断 力 な ど を 競う も の で す 。 こ 
うい っ だ タイ プ の ゲー ム は , ゲー ムセン ター で お な じみ で すし , X 1 用 と し て も ずい ぶん だく 
きん の も の が 市 販 さ れ て いま す 。 こ こ で は , この よう な タイ プ の ゲー ム 作 り に 欠か せな いい く 
つか の テク ニッ ク と , 基本 的 な 考え 方 を 学ん で いき まし ょ o 

反射 神経 型 の が ゲーム で は , イ ン ベ ペー ダー や ボー ル な ど を 画面 上 で 動か る な けれ ば な り ま せん 。 
これ に は どの よう な 方 法 を 使え ば よい か を まず 最初 に 考え て み ま し ょ う 。 

は じ め の 位置 に . だ た と えば @ が 描か れ て いま す 。 これ を 右 に 動い て いく よう に 見 せる に は , 
今 ある 位置 の 右 隣 り に , @ を 描き さま す 。 それ と 同時 に , 前 の 位置 に あっ た @ を 消し て し まい ま 
す 。 具体 的 に は , LOCATE 文 の パラ メー タ を 変化 させ な が ら , PRINT 文 に よっ て @ を 描き さき , X の >* 
ラメ ー タ を 1 減ら し た と ころ に , スペ ー ス を 描い て 前 の @ を 消せ ば よい わけ で す ( 図 6 -11)。 
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こち ら を 消す これ を 続け て いく と 


[プロ グラ ム 6 -- 2) 


10 MIOTH49iCLS 
20 FDR X=1 TO 3°? 
за LOCATEX, 12:PRINT"e@":LOCATEX-1 12: РЕТМТ" " 


40 NEXT 

@ ボ ー ル の 描き 方 

この 〔 プ ログラム 6- 2 〕 を 実行 し て みる と, ほとん ど 目 に 止ま ら ね くら い の は や さる で 欠 が 動 
いて いき ます 。 こ の プロ グラ ム で は 画面 の を か ら 右 へ まっ すぐ に 動い て いく だ け で す が , 実際 
の ゲー ム で は 斜め に 動か し た り , 下 か ら 上 へ , 右 か ら 左 と も っ と 自由 な 動き が 要求 され ます 。 
これ ら 6 の 動き を , 図 6 -12 の よう に 8 方 向 に 分 け て 考え て み ま す 。 まず , A の 方 向 に つい て は 見 
た と お り で す 。B 方 向 に は , X, Y 2 つの 値 を 同時 に 増やし て や る と 動か すこ と が で きま す 。 
D 方 向 は X を 減ら し な が ら Y を 増やす こと に な り ま す 。 例 1 の プロ グラ ム を 書き 直し て これ ら 6 
の 方 向 に る @ を 動か し て みて くだ きい 。 

図 6 -12 を 書き 直し て みる と, 図 6 -13 の よ うに .,8 方 向 へ の 移動 を LOCATE 文 の パラ メー タ の 
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変化 で 作り 出せ る こと が わか り ま す 。 さら に 正反対 の 方 向 へ の 移動 は , 式 の 右辺 に ある 十 と 一 
と を 逆 に すれ ば よい と いう こと も わか り ま す 。 


(8546-12) (E 6 -13) 
Ү-Ү-і 

E х-х-1 Х=Х +1 

F H еу] Y=¥=1 


今 で は も う 古 典 的 と 感じ られ る テレ ビ ゲ ー ム 「 ブ ロッ ク く ず し 」 で , みな さる ん も 遊ん だ こ 
が ある で し ょ う 。 ブ ロッ ク く ず し の ボー ル の 動き 方 を 思い 出し て みて くだ さい 。 

ボー ル が 壁 に 当たっ て は ね か える と き の 変 化 は 図 の よう に な っ て いま す 。 上 下 の 壁 に 当たっ 
た と き は , パラ メー タ の Y の 値 の 変化 の し か た を それ まで と 逆 に し て や る と 良い で すし , 左右 
の 豆 に 当たっ た ら X の 値 の 変化 の し か た を 逆 に し て や れ ば 良い わけ で す 。 

50, これ だ け の こと が わか っ だ の で すか ら , ここ で は 「 プ ロッ ク く ず し 」 ゲ ー ム を 作っ て 
みる こと に し まし ょ う 。 も は や , 古典 と は いえ , 古典 的 な ゲー ム も 味わい ぶ か いも の で す 。 


人 @ ボ ー ル は 壁 に 当たっ た か ? 


次 に , ボ ー ル が 壁 に 当たっ た か どう か の 判断 を る せる た め の 方 法 を 考え て みる こと に し ます 。 

方 法 は 2 つ あ り ま す 。 ま ず 1 つ は , CHARACTER$ とい う 関 数 を 使っ て , 壁 が ある か どう か を 
調べ る 方 法 で す 。 CHARACTER$ は , 指定 し た 座標 に 表示 る れ て いる 文字 を 値 と し て 取り 込む 関 
数 で す 。 し か し , CHARACTER$ を 使う 方法 で は , 球 の まわ り の 8 カ所 は すべ て の 座標 を 調べ な 
けれ ば な り ま せん 。 面倒 で ある だ け で な く , この ゲー ム の よう に ある 程度 は や い 動 き を 要求 す 
る 場合 に は , 8 カ所 を 次 々 と 調べ る こと で か な り 速 度 が 落ち ます 。 で すか ら こ こ で は この 方 法 
は 不向き で す 。 も う 1 つの 方 法 は , 球 の ある 位置 の 座標 の 数 値 か ら 判 断 する 方 法 で す 。40 文 字 
モー ド て 画面 いっ ぱい に 壁 を 描い た 場合 , 球 の 動く こと が で きる 座標 の 範囲 は 1 ミ X ミ 38, 
1 ミ Y ミ 23 に な り ま す 。 こ れ を 利用 し て や れ ば , 短い 処理 で 壁 の 有無 の 判断 を する こと が で き 
ます 。X が , 1 まだ は 38 に な っ た と き に は , 球 の 動く X 方 向 の 向き を 変え て や れ ば よい の で す 。 
また , Y が 1 まだ た は 23 に な っ た と き に は , Y 方 向 の 向き を 変え て や り ま す 。 これ を 利用 し て 組 
み 立 て た の が 【 プ ログ ラム 6-3〕 で す 。 

20 行 で 周囲 の 壁 を 作り ます ( 図 6 -14)。40 行 と 50 行 は , 変化 させ る 方 向 を 決め る 変数 を 作る 
部 分 で す 。 ま ず 0 か ら 62 ま で の 数 を 乱数 で 作り 出し , その 数 か 6 1 を 引く 〈 こ と で で, 一 1, 0, 1 
の 3 つの 数 値 を 作っ て いま す 。 る ら 6 に , こう し て 得 ら れ た 値 が 0 の と き に は も う 一 度 や り 直 し 
て , 一 1 か 1 を 作っ て いま す 。 乱数 で は 負 の 値 を 作り 出す こと が で き な い の で , この よう な 操作 
を し て いま す 。 こ うし て 作ら れ た 変数 XR と YR は , 球 の 最初 の 位置 を 表わす X, Y に 加え られ 
て 球 の 進行 方 向 を 決め て いま す 。 
в5 191109101 —181— 


〔 プ ログ ラム 6-3) (5116-14) 


18 MIDTH4 giCLS 

20 CO-ODR4:L INE (O, @) - (39,24), "&", 3 

30 X=20:Y=12:XC=X:YC=Y 

48 XR=INTCRIND て 1) 氷 コッ ー1 ょ エミ に XR=60 507048 
50 YR=INT(RND(1)}x3)-1:IF YR=60 сотоза 
60 “ ROOP 

70 X=X+XRIY=Y+YR 

88 IF X=<1 OR X}=38 THEN XR=-XR 

908 IF Ү=<1 ОК Y?=23 THEN YR=-YR 

100 LHCATEXC YC:PRINT" " 


118 XC=X:YC=Y _ 画面 いつ ぱい に 
128 COLOR7:LOCATEX, Ү:РЕІМТ" е" века 
138 вотова = ü 


80 行 と 90 行 で , 壁 に 当たっ た か どう か に 相当 する 判断 を 行ない , 条件 が 成り 立っ て いれ ば 今 
まで マイ ナス だ っ た だ もの を プラ ス に , プラ ス で あっ だ も の を マイ ナス に し て いま す 。 この 理屈 
は 前 に 説明 し まし た 。 壁 に 当たっ た 球 は , 反射 し て 飛び 続け ます 。 変 数 XC, YC に は 移動 し 続 
U BERD 1 つ 前 の 位置 が 代入 る れる こと に な り , 新しい 球 を 描く 直前 に 前 の 位置 の 球 を 消し て 
いま す 。 こ の プロ グラ ム を 動か し て みる と , 球 の 動き も その は や る も ゲー ム と し て 使え そう で 
す 。 こ れ を 基礎 に ,「 プ ロッ ク く ず し 」 を 作っ て いく こと に し ます 。 


音 も 出 そ う 


ゲー ム ら し くす る た だ ため に , 球 が 壁 に 当たっ て は ね か える と き に 音 を 出し て みる こと に し まし 
k う 。40 行 と 50 行 の 後に PLAY 文 で 音 を 出す よう に 追加 すれ ば よい わけ で す 。 と ころ が , この よ 
うな 処理 を する と 音 が 出 て いる 間 , 球 の 動き が 止 っ て し まい , ゲー ム と し て は 不 自然 に な っ て 
し まい ます 。PLAY 文 は , 文字 列 で 与 を られ た デー タ を , 音 を 出す た め に 必要 な 形 に 変換 し て か 
GPSG (プロ グラ マブ ル ・ サ ウン ド ・ ジ ェ ネ レー タ と いっ て 音 を 出す た め の LSI) に 送っ て いる 
ә, この よう な こと が 起こ る の で す 。SO0UND 文 を 使え ば , PSG に 直接 デー タ を 送る こと が で 
きま すか ら , この 時 間 を 省く こと が で きま す 。 また だ , SOUND 文 で は , 一 度 デ ー タ を 送れ ば 特に 
操作 し な いか ぎり 音 は 出 続け て いま すか ら , 音 を 出し な が ら 6 次 の 命令 に 進む こと が で きま す 。 
〔 プ ログ ラム 6- 4 〕 で は , 15 行 で あら か じ め 音 程 と 音 を 出す チャ ン ネ ル を 決め て お き , 必要 
な と き に 音量 を 上 げ , その 音 が 聞こ える よう に し て いま す 。80 行 と 90 行 の SOUND 8 , 15 が それ 
С, この ステ ー ト メン ト が 実行 され る と 音 が 出 は じ め , プロ グラ ム は すぐ に 次 の 行 へ と 進み ま 
+, そして, 130 行 まで や っ て 来 た と き に SOUND 8 , 0 と いう 命令 で 音量 を 0 に し ます 。 


[プロ グラ ム 6-4) 


16 MIDTH49:CLS 

15 SOUND8, 28:50030 1, 1:500к07, 62 

га COLOR4:LINE (0, 0) – 397, 24), "B", В 

38 X=20:Y=12:XC=X:YC=Y 

да ХЕзіІМТ(ВМО<12Ж32-1:1Ғ XR=0 GOTO48 

50 YR=INT(RND (1) жЗ) -1: ITF YR=0 6507050 

sa * ROOP 

70 X=X+XR:Y=Y+YR 

ва IF X=<1 DR Х>-38 THEN XR=-XR: SOUNDS, 15 
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90 IF Y= く 1 DR Ү>=23 THEN YR=-YR: SOUNDS, 15 
100 LOCATEXC “с: РЕТМТ" " 

118 ХС«Хх:ҮГт-Ү 

128 COLOR7:LOCATEX, Y:PRINT"@" 

130 SOUNDS, 8:60T04808 
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@ ラ ケッ ト と 球 の 動き は ? 


プロ ッ ク 〈 ず し の 基本 的 な 球 の 動き は , これ まで の プロ グラ ム の 応用 で よい よう で すか ら , 
先 に 画面 の レイ アウ ト を 決め て お きま し ょ う 。40 文 字 モ ー ド で ゲー ム を 行なう こと に し て , M 
面 を 図 6 -15 の よう に 分 割 し まし た 。 

球 の 動く 〈 範囲 は 〔[ プ ログ ラム 6 - 4 〕 の 数 値 を 一 部 変え る だ け (E 6-15) 

で 良い こと が わか り ま す 。 

た だ し , 今度 は 一 番 下 の 壁 は 不要 と な り ま す 。 球 が ここ まで 0 
来 た な ら , ラケット で 球 を 受け と め , は じき 返し て や ら ね ば な り 5 
ませ ん 。 

忌 は ,LINE 文 の BOX で 四角 い 枠 を 描い た 後に , 一 番 下 の 璧 の 部 
分 を 消す と いう 方 法 を 使い まし た 。 23 

ЖЕ, ラケット を 左右 に 動か す 方 法 を 考え ます 。 

プレ ー ヤ ー が 何 か の キー を 押し て ラケット を 動か す の で すか 0 23 
6, その キー が 押 き る れ て いる か どう か の 判断 が まず 必要 に な り ま す 。 動き の ある ゲー ム で すか 
Б, INPUT 文 は 使え を ませ ん 。 また だ , INKEY$ 関 数 は 1 文字 分 し か 受け 付け ませ ん か ら , 押し て い 
る 間 ず っ と ラケット を 移動 きせ る わけ に は いき ませ ん 。INKEY$ (0) は , 連続 し て キー 入力 を 
受け つけ ます が , ここ で は 別 の 方 法 を 使い ます 。 


で STICK 関 数 を 使っ て 


ゲー ム に と て も 便利 な 関数 が 1 つ あ り ま すか ら , これ を 使う こと に し まし ょ う 。 それ は STICK 
関数 で す 。 これ は , テン キー や ジョ イス ティ ッ ク か ら 人 入力 され る 値 を 与え る 関数 で す 。 ТІСКЕ 
数 は 

STICK(n) 
と し て 使い ます 。 n は 0, 1, 2 の 3 つ で , 0 の と き は キー ボー ド の テン キー, 1, 2 は それ ぞ 
N, X 1 本 体 の 後 ク の に ある ジョ イス ティ ッ ク 端 子 の 1 と 2 に 対応 し ます 。 求 め ら れる 数 値 は 図 6 
-16 の よう に な っ て いて , キー ボー ド の テン キー の 5 を 中 心 と し た 8 方 向 に 対応 する 数 値 が 得 ら 
れ ま す 。 も し 何 も 押し て いな い (ステ ィ ッ ク を 倒し て いな い ) と き に は 値 は 0 に な り ま す 。 Ж 
の プロ グラ ム で 試し て み ま し ょ 2 う 。 


< 


4 
7 
ка 


18 S=STICK て (9) 
20 PRINT 5%:607010 


テン キー の どれ か を 押し て いる 間 , その 数 値 が 変数 S に 代入 きれ ます 。 
ラケット の 移動 に は , テン キー の [4] と [6] と を 使い , [4| の キー を 押す と 左 へ , [6] を 押す と 右 
へ ラケット を 移動 する こと に し ます 。 実 際 に ラケット を 動か す に は , PRINT 文 を 使う こと も で き 
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ます が , ここ で は , ゲー ム で し ば し ば 使わ れる GET@, PUT@ とい (Œ 6-16) 
う 命令 を 用 いま す 。 こ の 方 法 を 知っ て お むく E, ラケット より も も 
っ と 大 き な も の を 動か し た いと き や , グラ フィ ッ ク で 描い た も の 
を 動か す と き に 応用 する こと が で きま す 。 

〔 プ ログ ラム 6-5 〕 は PRINT 文 を 使っ て ラケット を 動か す 例 で 


За 
[プロ グラ ム 6 -6 で は , 35 行 の GET@ で あら か じ め 画 面 に 描い 


て お いた ラケット の 絵 を , 配列 変数 RA% に 取り 込み ます 。GET@ 関 
数 は , 後に 指定 し た , X, Y 座 標 の 範囲 の 画面 の 状態 を 取り 込む 
働き を し ます 。 こ の 範囲 を 変え る こと に よっ て 何 行 に も わたる 絵 
を 一 度 に 取り 込む こと が で きる の で す 。 ま た , 配列 の 後に パレ ッ 
トコ ユー ド ( 色 コー ド ) を つけ る と, グラ フィ ッ ク で 描か われ た も の を 
取り 込む こと が で きま す 。 PUT@ は この 逆 の 働き を する 関数 で す 。 
配列 名 の 後に , PSET な どの 指定 を や つけ る と , グラ フィ ッ ク に よる 
絵 を 描く こと が で きま す 。 こ の 2 つ を 組み 合わ せる と , か な り 大 
き な 絵 を 動か の すこ と が で きま す 。 

「 プ ロッ ク く くずし 」 の 基本 と な る 球 の 動き ,、 ラケット の 動き を プログ ラム する こと が で きま し 
мес, 後 は 細か い 部 分 や 考え て いき ます 。 

ラケット に 球 が 当たっ た と き の 動 き で す が , KDR 6 -17 の よう に し て み ま す 。 

この よう な 動き を やる せる に は , ОСЫ, 壁 に 当たっ た と き と ま っ た くく 同じ よ うに 球 の 動く 方 
向 を 示す 変数 YR の 値 の 正負 を 反対 に し て や る だ け で す 。① で は , YR の 正負 を 反対 に し て , 5 
ら に 双方 向 の 向き を 示す XR の 値 を 0 に し ます 。③ は , ② の 特別 な 場合 と 考え れ ば よい で し ょ う 。 
球 が 当たっ た と き の XR の 値 が 0 ですから, 乱数 を 使っ て XR の 値 を 決め 直し て や れ ば よい わけ 


(546-17) 
Э も し 真 上 か ら 沙 ち 
て きた ら 、 方 向 を 
変え る 
央 に 当 ALn ЕСІНЕ ко К 
Na а Ери 射 さ せ て 打ち か えす 


[プロ グラ ム 6-5] 


за RA$=" ж " 

40 S=STICK (8) 

50 IF 5-0 THEN Х5=0 

る 9 ТЕ 5-4 THEN XS=-1 

та IF 6-4 THEN XS=1 

80 X=X+XS 

ой ТЕ X=<1 THEN X=1 

100 IF Х>=22 THEN X=22 
118 LOCATE X, 20:PRINT RAS 
120 GOTO 4ай А 
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[プロ グラ ム 6 - 6〕 

18 DIM RACE? 

20 Х-ій Y=24 

30 LOCATE X. Y:PSINT" miie ": 
35 GETƏ (9. 24) - (13, 24), RAM 
ай S=STIC< са)» 

50 ІС S=4 THEN Х5--і 

Өй IF 5-4 THEN Х5=-1 

708 IF 5-6 THEN XS=1 

80 X=X+XS 

98 IF X=<1 THEN X=1 

100 IF ※X>=22 THEN X=1 

118 Рота (X, Y) - (X+5, YD, RAZ 
128 GOTO 40 


信正 確 に は ね か える 球 は つま ら な い 


今度 は , ブロ ッ ク に 球 が 当たっ た と き の 動 き の 変化 で びす が , これ は , まっ た く 〈 く 予測 が で き な 
いよ うに し て お いた 方 が お も し ろ い の で , 完全 に 乱数 で 決め る こと に し ます 。 た だ し, 変数 XR, 
変数 YR の 値 と も 0 に な っ て し まう と 球 が 動か な く な り ま すか ら 6, 0 に な っ た 6 ら 6 も う 5 一 度 や り 直 
すま よ す うし ます 。 


球 が プロ ッ ク の 列 を 抜け て , 上 の 壁 に 当たっ た と き は , 球 の 動き を 当然 下向き に し な けれ ば 


な ら な い の で , 球 を 反転 させ る た め に XR の 値 だ け は 乱数 を 使っ て 決め ます ( 図 6-18)。 
(216-18) (E 6-19) 


š 次 に 球 を 描く 


位置 を 調べ る 


EE! NERE 


その 位置 に 球 
が 描か れ 、 前 の 
も の が 消さ れる 


球 が 当たっ た と き の 判 定 は , 壁 以外 は CHARACTERS$ 関 数 を 使っ て 調べ ます 。 こ の と き , いつ 
この 判定 を する か が ポイ ント に な り ま す 。 こ こ で は , 次 に 球 を 描く べき 位置 が 決ま っ だ た と ころ 
で , 球 を 描く 前 に その 位置 の 画面 の 状態 を 調べ る よう に し まし た ( 図 6-19)。 こ の よう に する 
L, 自然 な 動き で ブロ ッ ク を 消す こと が で きま す 。 ラ ケッ ト の 場合 は , 球 に よっ て 消 る れ て も , 


すでに PUT@ 文 で 描き 直さ きれ ます か ら , 不都合 は あり ませ ん 。 
[プロ グラ ム 6 - 7 〕 

10 DIM кехж св) 

29 MIDTH49:SCREEN9, 9:CLS4 

за COLOR4:LINE (@, 0) – (23,24), "Ш", В 
40 LINE с, 24) - (23,24), " " 

50 LOCATE 1 9, 24:С01 ОВ&:РВІМТ " аа" : 
る 9 GETa (9, 24) - (13, 24), ВАХ 

78 SOUND 9, 28:500М01, 1:SOUND7, 60 
80 ХВ=10:ҮВ=24:ХМ= 19:YM=24 iXC=XB iYC=YB : BALL =8 

の 9 XR=INTCRNDX3) -1:1Е XR=9 GOTO?@ 

180 YR=-1 

118 LOCATE2, 3:COLOR3:PR INTSTR ING ま (29, "m" > 

120 LOCATE2, 4: СО 05: PR INTSTR ING ま (29," 画 ") 

130 LOCATE2,5:COLORé:PRINTSTRING*$ (20, "m" ) 

140 COLOR7:FOR Ісі ТО BALL:LOCATE30+1, é6:PRINT" ®"; : ЧЕХТ 


-1е4- 1811180818 ва 


6 X1 と 遊ぼ う 


150 GOSUB "コン トロ ー ル " 

160 7 ラケット 

170 5=5ТІСК (М) :ІҒ 5-0 THEN XS=9 

189 IF S=4 THEN XS=-1 ELSE IF 5-6 THEN XS=1 

190 XM=XM+XS : YM=YM+ YS 

200 IF XM= く 9 THEN XM=@ ELSE ТЕ XM>=1? THEN ХМ=19 
210 PUTA (XM, 24) - (XM+5, 242, RAX 

220 - BALL 

230 XB=XB+XR: YB=YB+YR 

248 IF XB=<1 AND XR=-1 XR=1:SOUNDS, 15 

250 IF XB>=22 АМО XR=1 XR=-1:SOUNDS, 15 

268 IF YB= く 1 THEN YR=-YR:SOUND8, 15: IF XR=9 THEN ХК= ІМТ (ЕМОЖЗ) -1 
270 ТЕ YB=25 THEN GOSUB "№274": 50Т70166 

280 C$=CHARACTER$ (XB, YB? 

298 IF С%‹›" " THEN SOUNDS, 15 

300 LOCATEXC, ҮСІРБІМТ" "; 

310 ХС=ХВ:ҮС=ҮВ 

320 LOCATE XB, YB:COLOR7:PRINT "е"; 

330 IF С%-"Ш" GOTO 408 

340 ТЕ С%="щ" THEN ҮК=-ҮК:ХК=@ 

350 IF C$="æ" THEN YR=-YR:IF XR=9 THEN ХК-іІМТХЕМОЖЗ2-1 
360 IF С%<>"ш" GOT0400 

370 IF YB=3 THEN РО=РО+2@:Р=Р+1 ELSE ТЕ YB=4 THEN PO=P0+10 :P=P+ 
1 ELSE IF YB=5 THEN PO=P0+5:P=P+1 

380 IF P=60 THEN FOR B=0 ТО 1000:МЕХТ:ВЕЕРӨ:ЕМО 

390 XR=INT (RNDX3) -1:YR=INT (RNDX3) -1:IF XR=0 OR YR=9 GOT03?0 
400 ГОСАТЕЗО, 4: РЕТМТ "POINT"; PO 

410 SOUNDS, 9:GOTO 160 

420 LABEL "ロン フン テイ" 

430 PLAY"::02A7" 

440 госатеза, ó:PRINTCHR$ <5) 

450 BALL=BALL-1:IF BLL=9 THEN END 

460 FOR I=1 TO BALL 

478 LOCATE 1+30, 5 :PRINT"@": NEXT 

480 XB=XM: YB=YM: XR=INT (RNDX3)-1:YR=-i 

490 PAUSE18:LINE (8, 24)- (23,24)," " 

500 RETURN 

510 LABEL " コントロール" 

520 LOCATE2, 16:COLORS:PRINT"2A° -2 г“ =" 

530 LOCATEZ, і8:РВІМТ "トリ カー ホー タン 3 オシ テク タ ヾ サイ リロ 

540 S9=STRIG(9)iS1=STRIG(15:iIF 50-0 AND S1=9 6070540 
550 IF 50--1 THEN N=@ ELSE IF S1=-1 THEN N=1 

560 LINE (2, 16) - (22, 185, " ",BF 

570 RETURN 


фас а? 


以上 の こと を まとめ て , プロ グラ ム と し た の が 〔 プ ログ ラム 6- 7 ) で す 。 こ の ゲー ム は , 7 
ュ イ ステ オッ ク と キー ボー ド の どちら で も 使え を る 4 よう に し て あり ます 。 ど ちら を 使う か を 決め 
る の が 510 行 か ら の サブ ルー チン で す 。STRIG 関 数 を 使っ て いま す 。 

この 関数 は 。 ステ ィ ッ ク の トリ ガー ボタ ン , また は キー ボー ド の スペ ー ス バー の 状態 を 調べ 
る も の で す 。 

STRIG(n) 

と し て 使い ます 。n の 値 は STICK 関 数 と 同じ で , 0 な ら キ ー ボ ー ド , 1 と 2 は ステ ィ イッ ク 1 ほ と 2 
の トリ ガー ボタ ン に 対応 し ます 。 こ れ ら が 押さ きれ て いる と , この 関数 の 値 は ー 1 に 押さ れ て い 
な けれ ば 0 に な り ま す 。 こ こ で は , キー ボー ド と ステ ィ ッ ク 1 の 両方 を 調べ , 押 き れ て いる 方 
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を 使う よう に 変数 N の 値 を 決め ます 。 変 数 N の 値 は を その まま メイ ン ル ー チ ン に 受け つが れ て STICK 
関数 の 引数 (カッ コ の 中 の 数 値 ) と し て 使わ れ ま す 。 

この プロ グラ ム で は , 今 ま で の よう な サブ ルー チン 分 け を し て いま せん 。 こ れ は , 速度 の 低 
下 を 防ぐ た めで す 。 サ プ ブルー チン 分 けし た プロ グラ ム は , 大 変わ か りや すく 〈, 便利 な 点 も 多い 
の で す が , 毎回 サ プ グル ー チ ン に 飛ん で いっ て 処理 を する た め , この 往復 の 分 だ け 余 計 な 時 間 が 
か か り ま す 。 こ の よう な リア ル タ イ ム ゲ ー ム で は , な る べく 〈 無 駄 な 処理 や 分 岐 を 省 い て , 速度 
を 上 げ る 方 法 を 考え を な けれ ば な り ま せん 。 FOR で NEXT 文 な ど b, 速度 を 低下 る せる 大 き な 原 因 
に な っ て いま すか ら 6, うま く 〈 使 いひ 分け て くだ さい 。 

この プロ グラ ム で は , Т, 」( ア ポス トロ フィ ー, REM の 省略 形 ) を 使っ て , 今 ま で 説明 し て 
きた 妥 所 に コメ ント を つけ て あり ます か ら , 本 文 と 合わ せ て その 働き を 理解 し て くだ さい 。 
他 の ゲー ム を 作る と きも , ここ まで 説明 し て きた よう な 基本 的 な 考え 方 は ほとん ど 共 通し て 
いま す 。 参考 に し て みな さん も 楽し い ゲ ー ム を 作っ て みて くだ さい 。 
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е-е Босут, 
エラ ー 処 理 ル ー チ ン 


⑯ エ ラー を 出し て も 大 丈夫 ? 


私 た ち が BASIC で プロ グラ ム を 作っ て , 走ら せ た と き に よく 発生 する の が , 前 に も 出 て きた 
Syntax error や , Illegal function call error で す 。 

これ ら の エラ ー は , 命令 文 の つづ りや パラ メー タ の 使い 方 が お むか し いた め に 発生 する エラ ー 
で す 。 プ ログ ラム 自体 に 問題 が ある わけ で すか ら , 修正 を 加え て いく こと に な り ま す 。 こ うい 
っ た 修正 を 加え て いっ て , 完成 され た プロ グラ ム で も , プロ グラ ム を 使う 人 が 誤っ た デー タ を 
入力 する な どの 誤操作 に よっ て エラ ー ス トッ プ す る こと が あり ます 。 

この よう な 場合 で も プロ グラ ム の 実行 を スト ッ プ させ ず , 実行 を 続け て いけ る よう に する の 
が , エラ ー 処 理 命令 で す 。 次 の プロ グラ ム 例 を みて くだ さい 。 

10 INPUT "А", А 

20 INPUT "B=", В 

30 С-А/В 

40 PRINT С 

50 60Т0 10 

これ は , AB に 2 つの 数 値 を キー ボー ド か ら 入 力 し , その 結果 を 表示 する も の で す が , ВО 
値 に 0 を 入力 する と , Греуіѕіоп by zero」 エ ラー (エラ ー11) と 表示 し て 止ま っ て し まい ま 
す 。 も し これ が 大 き な プ ログ ラム の 途中 で 起き た も の だ と する と, 大 変 面倒 な が こと に な り ま す 。 
この よう な 場合 ,、 あら か じ め こ うし た 入力 ミス を し を そう な と ころ を チェ ッ ク す る と と も に , В 
こり そう な エラ ー を 想定 し て , エラ ー 処 理 ル ー チ ン を 作っ て お きま す 。 す る と , プログ ラム の 
実行 を スト ッ プ きせ ず に 続け る こと が で きま す 。 

エラ ー 処 理 ル ー チ ン へ 実行 を 移す に は , ON ERROR GOTO と い う 命 令 を 使用 し ます 。 こ の ス 
テー トメ ント は , プロ グラ ム の 先頭 に 置き , と に か く エ ラー が 起き た ら 6, 指定 し た 行 番号 ヘ ジ 
ャ ンプ する よ うに 指定 し て お くも の で す 。 そ し て , エラ ー 処 理 ル ー チ ン の 中 で は , エラ ー の 発 
生 し た 場所 と エラ ー の 種類 に よっ て , 対応 する 方 法 を 設定 し て お き , RESUME 文 に よっ て メイ ン 
ルー チン に 戻る よう に し て お きま す 。 


ФЕРЕ ERL 


X 1 で は , シス テム 変数 (関数 の 一 種 で す ) と し て ERR, ERL が 用 意 き れ て いて , プロ グラ ム 
の 実行 中 に エラ ー が 発生 する と ERR に エラ ー コ ユー ド が ,ERL に エラ ー の 発生 し た 行 番号 が 入り ま 
す ( エ ラー コー ド と エラ ー の 内 容 に つい て は , 巻末 の 表 を 参照 し て て ださい)。 前 出 の プロ グラ 
ム 例 の 場合 , ERR と ERL の 値 を PRINT 文 で 調べ て みる と , それ ぞ れ 11 と 30 に な っ て いる こと が 
わか り ま す 。 
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この 場合 , B に 0 の 値 が 入っ た だ め に 30 行 で エラ ー コ ー ド 11 の エラ ー が 発生 し た の で すか ら , 
これ を 解消 (保証 ) する に は , 数 値 を 入力 し 直す こと に な り ま す 。 こ の 処理 を , 10000 行 か ら の 
エラ ー 処 理 ル ー チ ン に まとめ て みる こと に し まし ょ う 。 プ ログ ラム の は じ め の と ころ で , 

ON ERROR GOTO 10000 
と 入れ て 置き ます 。 を そし て , エラー 処理 と し て は , 計算 不能 で ある こと を 表示 し , INPUT 文 に 戻 
せ ば よい わけ で すか ら , エラ ー 処 理 ル ー チ ン は , 

10000 IF ERR О 11 THEN ON ERROR GOTO 0 

10010 PRINT "ケイ サン 7/ 7": PLAY “O2C 3 RCR” 

10020 RESUME 10 
と な り ま す 。10000 行 で 行なっ て いる 処理 は , Devision by zero 以外 の エラ ー に つい て は エラ 
ー 処 理 を 行なわ ず , 通常 ど で む り エ ラー メッ セー ジ を 出し て スト ッ プ する よう に し た も の で す 。 
ON ERROR 文 を 使う と , どの よう な エラ ー で も 関係 な エラ ー 処 理 ル ー チ ン に ジャ ンプ し て し ま 
いま す 。 こ の 場合 エラ ー11 に 対し て だ け の 対策 し か し て いま せん か ら , 11 以 外 の エラ ー に 対し 
て RESUME で 10 行 に 戻し て も な ん の 意味 も な いた めで す 。ON ERROR GOTO 0 は , 0 行 に ジャ 
ンプ する の で は な く , エラ ー 処 理 を 行なわ な い , と いう 意味 や 持っ て いま す 。 

RESUME 文 は , エラ ー 処 理 ル ー チ ン を 実行 し た 後 の 戻り 先 を 指定 する も の で す が , RESUME だ 
け だ と , エラ ー の 発生 し た ステ ー ト メン ト へ , この 例 の よう に 行 番号 . まだ は ラベ ル を つけ る 
と その 行 ま た は ラベ ル に 戻り ます 。RESUME NEXT と する と, エラ ー の 発生 し た 次 の ステ ー ト メ 
ント に 戻り ます か ら 6, マル チ ス テー トメ ント の 途中 へ も 戻る こと が で きま す 。 

実際 の 長い プロ グラ ム の 中 で , いく つも の 場所 で 発生 する エラ ー に 対応 する に は , エラ ー 処 
理 ル ー チ ン で ERR と ERL を 組み 合わ せ て , も っ と 複雑 な 処理 を し な く て は な ら な い の は 言う ま 


p= 018 000 a ی ت‎ A ت ب ت ب‎ Ran ت م‎ っ 
I bit と byte I 
| ここ に 2 冊 の 本 が ある と し ます 。 ご この 2 冊 の 本 に 書 が れ て いる 情報 の 量 を 比べ る に は どの よ | 
うな 万 法 が ある で し よう ガ 。 値段 や それ と も ペー ジ 数 や 文字 数 や いずれ に し て も , 本 の } 
情報 量 を 比べ る の は 容易 で は あり ませ ん 。 ! 
コン ピュ ー タ の 世界 で は , 情報 の 量 を 表わす た め の 単位 が あり ます 。 それ が , bit や byte で | 

| 8. ! 
| bit と は , binary digit (2 進数 字 ) OBT, 情報 量 を 表わす 最小 の 単位 で す 。 ど ん な 情報 ; 
| も , コン ピュ ユー タ の 内 部 で は , 2 進数 に 直し て 処理 され ます 。 情 報 を 2 進数 に 直し た と き , 2 | 
進数 の 桁 数 を DIt で 表現 し ます 。 つ まり , 2 進数 の 1 桁 が 1 DK に あ だ り ます 。 だ と えば , 10 進 } 
数 の 37 と いう 数 値 を 2 進数 に 直す と , I 
37(⑩)=1001012) 1 

と な り , 10 進 数 37 は 6 Dit の 情報 という わけ で す 。 | 
св, byte は どう で し よう 。 この 言葉 は , 英和 辞典 を 調べ て も 載 つ て いま せん 。 コン ピュ ー ! 

ク の 世界 で し か 使わ れ な い 単位 で , bit の 集まり を いい ます 。 8 bt の 情報 を 1 つの 単位 と し て , | 

| byte で 表わし ます 。 コ ンピュータ ガ が 文字 や 記号 な どの キャ ラフ ダ を 1 つ 表 現す る に は , прие | 
I (= 8bit)#*lME CS, た と えば , “SysSterm'" と いう 言葉 を 表示 する に は , 6 文字 , 2806 | 
byte が 履 要 と な り ま す , “System" は 6 byte の 情報 量 と いえ る の で す 。 | 

| この よう に , byte と いう 単位 は , 文字 数 を 情報 の 量 と し て 表現 する の に と て も 便利 で す 。 I 
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6 X1 と 遊ぼ う 


で も あり ませ ん 。 

エラ ー 処 理 で 特に 注意 し て お きた い の は , ON ERROR 文 や エラ ー 処 理 ル ー チ ン は プロ グラ ム 
が 一 応 完成 し て , プロ グラ ム 自 体 が 原因 で 起き る エラ ー を 完全 に 直し , プロ グラ ム そ の も の で 
は エラ ー を 起こ る な いよ うな 修正 な ど を 完璧 に し て か ら , デー タス 入 力 な ど 外 的 な 原因 に よっ て 
起き る エラ ー だ け を 処理 する よう に する こと で す 。 最 初 か ら ON ERROR 文 が あ る Ё, Syntax error 
な ど で も エラ ー 処 理 ル ー チ ン に ジャ ンプ し て し まう だ ため ,RESUME の 戻り 先 な ど で 不 都合 を 生じ 
る こと が ある の は も ちろ ん で すし , プロ グラ ム の バグ を 見 つけ る こと が むず か し く な り ま す 。 
この よう な こと か ら 考 えれ ば , ON ERROR で 処理 する エラ ー は , 大 変 限ら れ た も の に な り ま す 。 
あえ ぇ て 書く て なら, よく で きた プロ グラ ム で は , エラ ー コ ュー ド 11, 27, 29 以 外 の エラ ー が 発生 す 
る こと は ほとん ど あ り ま せん 。 ON ERROR に よる エラ ー 処 理 は うま く 使 うと 便利 で す が , いい か 
げん に 使う と と ん で も な い 処 理 が 行なわ れる こと に な り ま す の で , 注意 し て 使っ て くだ さい 。 
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X | の 昔 楽 ゴ 能 は で 


7-1 X ] は 名 演奏 家 


@ X 1 の 演奏 機能 


昔 は 非常 に 高価 で 扱い の むず か し か っ た だ た シンセサイザ を 使っ た 音楽 も , 最近 で は すっ か り 身 
近 な も る の に な り ま し た 。 安価 で 誰 に で も 扱え を る シン モ サ イザ が た くさ ん 市 販 さ る れ て いま す 。 

X 1 に は , プロ グラ マブ ル ・ サ ウン ド ・ ジ ェ ネ レー タ (PSG) と いう , ミニ シン セ サ イ ザ が 
内 蔵 き され て いま す 。 こ の PSG を 使う と る ま ざ ま な 音楽 の 演奏 や ゲー ム の 効果 音 あ つく る こと が 
で きま す 。 こ こ で は , この PSG に よる 音 作り の 方 法 を みて いき ます 。 

X 1 で 音 を 出す に は , 楽譜 を 文字 列 に し て PLAY 文 に よっ て 演奏 する 方 法 と SOUND 文 を 使っ て 
直接 PSGC の LSI に デー タ を 送っ て 音 を 出す 2 と お り の 方 法 が あり ます 。 こ こ で は まず , PLAY 文 
に つい て 見 て いき まし ょ う 。 


人 PLAY を 使え ば …… 


音符 を 音 に する に は , 音程 , 音量 , 音 の 長き の 3 つの 要素 を 指定 し な けれ ば な り ま せん 。 

楽譜 の 読み 方 に は , 普通 使わ れる 「 ド レミ ファ ……」 の 他 に , ドイ ツ 読 み の 「C DEEGA 
Н.Ф, 英語 読み の 「C DEFGAB」 が あり ます が , BASIC で は 英語 読み を 基本 も し た デー 
タ を 使い ます 。X 1 で 出せ る 音域 は 図 7- 1 に 示し た 8 オク ター ブ で す 。 オ ー ケ ストラ の 楽器 で 
いえ ば , コン トラ バス より 低い 音 か ら ピ ッ コ ロフ ルー ト よ り 高 い 音 まで 出す こと が で きま す 。 
る っ そく ダイ レク トモ ー ド で PLAY 文 を 使っ て 音 を 出し て み ま し ょ う 。 

PLAY "CDEFGAB" 

ドレ ミ フ ァ ソ ラ シ , と 聞こ えま す 。 今度 は 半音 を 含め て 8 オク ター プ す べ て の 音 の プロ グラ 

ム を 作っ て み ま す (プロ グラ ム 7 -1)。 


(47-1) 
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7 X1 の 音楽 才能 は ? 


(プロ ログ ラム 7=1) 

18 ME="CIHCORIEFRFGHGASAR " 

20 FOR Ісі ТО в 

за мизе"0"+ В 16-Тъ «878 (I), 1) +M$ 
40 PLAY MUS 

за NEXT 


音 を 出す に は この よう に , 
PLAY 文字 列 "” まだ は , 
MUSIC “XF” 
と し ます 。 PLAY と MUSIC は , 後ろ が 文字 列 の 場 
合 , まっ た く 同 じ 働き を し ます 。 わ ず か に 異な 
る の は , PLAY 文 で は 文字 列 の 中 で , テン ポ の 指 
定 を で きま す が , MUSIC 文 に は この 機能 が な いと 
いう 点 だ け で す 。MUSIC 文 で は 別に TENPO 文 に よっ て テン ポ を 指定 し な けれ ば な り ま せん 。 テ 
ン ポ と は , 1 分間 に 演奏 る れる 4 分 音符 の 数 で , 30 一 7500 ま で 指定 する こと が で きま す 。 何 も 
指定 し な い 場 合 は , テン ポ は 120 に 設定 され て いま す 。 
実際 の 楽譜 に は ,「#」( シ ャ ー プ ) や 「b 」 (フラット) が あり ます 。 半 音 を 指定 する 場合 は , 
音程 の 前 に 「#」 を つけ ます 。「b」 は あり ませ ん の で すべ て 「#」 で 代用 し ます ( 図 7-2)。 
た と えば 「bE」 は 「#D」 に 読み か えま す 。 
( 7-2) 


D жс. Е # b F A # b A 


== = 
また , オク ター ブ の 指定 は , On として, 0 の 後に 図 7 - 1 の 数 値 を や つけ ま す 。 オ クタ ー ブ 指 
定 は , 一 度 指定 する と 次 に 指定 し 直す まで 変化 し ませ ん 。 一 部 の 音 ど だ け オ クタ ー プ が 変化 する 
場合 に は , 音 名 の 前 に 「 十 」,「 一 」 を つけ る こと に より , On 指定 され た オク ター ブ の 上 下 を 指 
定 す る こと が で きま す 。 こ の 「 十 」,「 一 」 は 重ね て 使う こと に よっ て , その 数 だ け 動 か すこ と 
(オフ セッ ト ) が で きま す 。 図 7 - 3 の 楽譜 を PLAY 文 に する と 次 の よう に な り ま す 。 

(07-3) 


PLAY "1454+03+С585азбзав“ 


人 @ 音 量 は ? 
音程 が 指定 で きま し た か ら , 次 は 音量 の 指定 を し まし ょ うう 。 音 量 は 「Vn」 を 使い ます 。 УМ 
VOLUME の 意味 で , n に は 0 か 615 ま で の 数 値 を 入れ ます 。n が 0 で す と 音 は 出 ま せん 。 V15 


で 音量 は 最大 に な り ま す 。 
FOR~NEXT を 使っ て この n の 値 を 変え な が ら 音 量 を 変化 3 ね せ て み ま し ょ う ( プ ログ ラム 7 - 2 )。 
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〔 プ ログ ラム 7ー 2) 


18 FOR їт=@ ТП 15 

20 M€$="U"+RIGHT$ (STR*$ (1), ЕМ (5БТКЪ (122 -1) + "АЗ" 
30 PLAY мъ 

40 NEXT I 

50 FOR 1515 TO @ STEP -1 

60 M$="V"+RIGHTS (БТЕЪ (І), LENCSTRS (122 -1) + "АЗ" 
70 PLAY мъ 

88 NEXT І 


また , V16 と する と, 後 で 説明 する SOUND 文 と 組み 合わ せる こと に よっ て 音色 を 変化 させ る こ 
と が で きま す 。 


⑧ 音 の 長 さ は ? 


次 は 音 の 長き の 指定 を し ます 。 KORSI, 表 7-1 の よう に 4 分 音符 を 5 と し た 相対 的 な 値 
で 指定 し ます 。 休 符 は R で 指定 し , その 長 さ は 音符 を 決め る 数 値 と 同じ で す 。 


表 7-1 
| 音 の 長 さ 対応 する 整数 | 
32 分 音符 + 0 
16 分 音符 + 1 
付 点 16 分 音符 + 2 
8 分 音符 + 3 
付 点 8 分 音符 3 4 
4 分 音符 1 5 
付 点 4 分 音符 1+ 6 
2 分 音符 2 7 
付 点 2 分 音符 3 8 
全音 符 4 9 


音 の 長き は , 一 度 指 定 す る と , オク ター プ 
の 指定 の よう に , 指定 し 直す まで 変化 し ませ 
ん 。 

これ で , 音符 を 音 に する こと が で きる よう に な り ま し た だ た 。 こ れ に 対し ,「 二 」「 一 」「#」 は 後 
に 書く 1 音 だ どけ に 作用 し ます 。 

音楽 に は ,「 メ ロディ ー」,「 リ ズム 」,「 ハ ー モ ニー」 の 3 つの 要素 が あり ます 。 音程, 音量 , 
音 の 長 さ を 指定 する こと が で きる よう に な り ま し だ た だから, САС, 「 メ ロディ ー」 と 「 リ ズム 」 
と いう 2 つの 要素 を 自由 に 操れる よう に な っ た わけ で す 。 残る は 「 ハ ー モ ニー」 で す 。 

る て 「 ハ ー モ ニー」 で す が , X 1 で は 3 つの 音 を 同時 に 出す こと が で きま す 。 つ まり , 三重 
和音 を 使う こと が で きる の で す 。PLAY の 後に , 

PLAY "F1 : 音 2 : Ë 3" 

の よう に , Г: 」( コ ロン ) で 区 切っ て 文字 列 を 書く L, この 3 つの 音 が 重なっ て 演奏 る れ ま す 。 
ハ 長 調 の 3 和音 (47-4) を 演奏 する の が 次 の プロ グラ ム で す 。 


C4‏ 11200194 س 


7 X1 の 音楽 才能 は ? 


[プロ グラ ム 7 - 3 (7-4) 


10 Рат "049У15:049,15:049У15" 
20 PLAY "С?СОЕ:Е?Е66: С?АВ +С" 


ここ で は , 10 行 で 3 音 の オク ター プ と 音量 を 決め て お き , 20 行 で 音程 ご び け を 指定 する と いう 


方 法 を 使っ て いま す 。 
次 か ら は , 実際 に 楽譜 か ら 曲 を 演奏 きせ る いろ いろ な テク ニッ ク を 見 て いき まし ょ う 。 


с5 1109991891 = 


7-2 ドレ ミ の 歌 を 演奏 し て みよ つう 


Өк ок, 歌え る か な 


ST, いよ いよ PSG を 活用 し た X 1 に 音楽 を 演奏 る きせ て み ま し ょ う 。 テ ー マ し として, 映画 「 サ 
ウン ド ・ オ プ ・ ミ ュー ジッ ク 」 の ドレ ミ の 歌 を 取り あげ て み ま し た 。 ま ず 最 初 に , 全体 の 楽譜 
を 見 て み ま し ょ う (М7-5). 

楽譜 は 苦手 ど と いう 人 も 心配 する こと は あり ませ ん 。 楽譜 を その まま 文字 列 の デー タ に 直せ 
ば よい の で すか ら 。 

メイ ン ル ー チ ン は , READ て DATA を 使い , 曲 の 終わ り に 「FINE」 と 書い て お き , これ が 読み と 
れ た 時 に プロ グラ ム が 終了 する よう に し ます 。 それ 以外 の と き は , 読み 出し た デー タ を PLAY 文 
で 演奏 し , GOTO 文 で READ に 戻す よう に し て あり ます 。 


( 07-5) е 
ドレ ミ の 歌 


“DO-RE-MI" 

Words by 05саг Hammerstein 2nd 

Music by Richard Rodgers 

Copyright 1959 by Williamson Music Inc. 
Rights forJapan assigned to CHAPPELL K.K. 


X1 の 音楽 才能 は ? 
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[プロ グラ ム 7 - 4 〕 
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DATA 
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158 DATA 
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らし の な し 


だ 
ら な く な っ て し まい 


れ を 走ら せ て 音 を 聞い て みる と , 全部 の 音 が つなが っ て , な ん と な さく 


> 
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くわ か 
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節目 は 8 分 音符 が まっ 


ます 。 特に , 34 


こ な っ て し まい 


4-і 


وو 


11000111 


ЖЕ, 楽器 で 演奏 し た り , 歌っ た りす る 場合 , 必ず 音 と 音 を 区 切っ て いま す 。 だ と えば 3 小節 
目 は 図 7-5 B の よう に 演奏 する と 考え る こと が で きま す 。 こ の 考え 方 で デー タ を つく り 直 し た 
の が 次 の プロ グラ ム で す (プロ グラ ム 7-5)。 

〔 プ ログ ラム 7-5] 

90 TEMPO :44 

100 READ МФ 

110 IF МФ-"ТІМЕ" THEN ЕХО 

120 PLAY M$ 

130 вото 108 

140 DATA ":504с5830:ВЕБЯ2С: 9559 ュ ビ は ビ 1 こら ご" 
150 DATA "О5ЕЗЕ 1 民 に RFRKERORFB5" 

168 DATA "FINE" 

今度 は リズ ム も は っ きり し て 音楽 らし く 聞 こえ ます 。 

休 待 を も つけ る と いう こと は , 1 つの 音符 を 音 の 部 分 と 休み の 部 分 に 分 割 す る と いう 意味 で す 。 
図 7- 6 に 音符 の 分 割 の 例 を あげ て お きま す 。 楽 譜 上 スラー や タイ な どの 音符 つない て 演奏 
する 記号 が つい て いる 場合 以外 は , この 方 法 で 休 符 を つけ る よう に し ます 。 音符 に は 細か な 表 
情 が あり , それ を コン ピュ ー タ で 美しく 演奏 する に は 少々 コツ が いり ます 。 あ くま で 聞い た 感 
じ が 大 切 で すか ら 6 必ず し も この よう は に 分割 す る わけ で は あり ませ ん 。 何 度 も 開い て みて 直し て 
いく こと も 必要 で す 。 

(47-6) 4 分 音符 、 


普通 の 音 ーーーーーー--ー ス タッ カー トニ ーー ニテ ヌー ト 


ПТ) = の 彰 を 休 符 に する 
== == =s = 


F5 FART i F3R F3F2RO 
= ааа 
F1R ҒО R2 F2 ВО 


の ば す 音 の 場合 ( 曲 の 感じ に より 使い わけ る ) 
=— Ри =E — 
こと 


F8F3R F8 R5 


@ バ パッセージ の 場合 (主旋律 の 場合 ) 


— —— === = = = = = 


C1 RD RE RF RG RA BR+CR 


@ 付 点 音 符 の 場合 
КЕ =: Пк = 
F5R3F1R F5 F1 R FR 


「 ド レミ の 歌 」 の 全曲 の デー タ を 作っ た プロ グラ ム を あげ て お きま す 。 の 部 分 は 1 声 。 [B| 
の 部 分 は 2 声 に な り ハ ー モ ニー を つけ て あり ます 。 [Cl の 部 分 か ら は 3 声 に な り , 最上 音 の 旋律 
は 。 音 を 分 割 し を な いで な め ら か に つない で , 下 の 段 の リズ ム を 目立た な せる よう に 作っ て み ま し 


—2@@— 1 тайтяйй Ë 


[кї] 


7 X1 の 音楽 才能 は ? 


Те (プロ グラ ム 7 -6)。 
音符 の 分 割 な ど , 少々 面倒 で す が , 慣れ る と 比較 的 簡単 で す 。 他 の 曲 の デー タ も 作っ て 演奏 
さる せ て みる と よい で し ょ 5, 


〔 プ ログ ラム 7-6〕 
1 9 し BB L K R T T R T H T T T T T T T R T T R T E T T T D T HB Bl 
20 “а а 
за * ® ^а ノ 27 N 
ай < = . 
50 г HH BB HB HB BE HB HH HB HH BB HH HB BB BB HB HEB HB BI EE] 
る 9 
9й TEMPO 144 
100 READ МФ 
110 ТЕ МФ-"ҒІМЕ" THEN END 
120 PLAY МФ 
130 GOTO 108 
148 DATA "41504С5830 1RESR3C1RE4R 1С4К 1Е5ЕЗ: 01504: 01504" 
150 DATA "DSR3E 1RFRFRERDRFSR5" 
160 DATA "ES5R3F 1RGSR3E 1RG4R 1E4R1G6R3』iC5R3D 1RESR3C 1RE4R1C4R1E る R3" 
170 DATA "FSR3G 1RQRARGRFRASR5 ID5SR3E 1RFRFRERDRFSR5" 
180 DATA "GSR3C1RDRERFRGR 人 BR : ЕБЕ ЗС1К-НАВСКОВЕВЕЗКА5" 
198 DATA "ASR3D 1RER 柱 FRGR 代 RBSR5 : #FSR3D 1RERDRER##FRGSR5" 
200 DATA "BS5SR3E1R8FR#GRARBR+C7+C3RB1R8AR:B8GSR3E1RDRER#FR#GRA7ASR 
E1RER" 
218 DATA "4R1F4R 1B4R 1G4R 1 + じ 8+C3R:iF4R1D4R1G4R 1F4R 168638: 5850481 
D4R1ESES3R " 
220 DATA "R3C1RDRERFRGRSRBR+CSR5 :CSRSR さ 3+C 1RBRARGRFRERDR " 
230 DATA "GZCAF :E ア CFD : 05C 1RERE4R 1E 1RGRG4R 1D 1RFRF4R1 全 1RBRB4R 1 " 
240 DATA "ECD の iCCR タ iC1RERE4 民 1E1RGRG4R1O1RFRF4R1 全 1RBRB4R1" 
258 DATA "б?сав:Е? СЕО: CRERE4R1E1RGRG4R1D1RFRF4R1 全 1RBRB4R1" 
268 DATA "+C+DE?:EFG6G%°:R3+C1RBRARGRFRERDRC? " 
278 DATA "FINE" 
めん か だ お めも る 


キー 入力 の リピ ー ト 機能 (1 つの キー を 押し 続け る と 同じ 文字 が 続け て 入力 され る ) 18, 大 


REPEAT ON/OFF 


変 便利 な も の で す が , と き に は この 機能 が か えつ て わずらわし ぐ 感 じ ら れ る こと も あり ます 。 


た と えば , プロ プラ ム が 入力 待ち の 状態 で , 


が 入 つ て し まつ だ , な ん て よ ぐ ある こと で すね 。 
こん な と き は , REPEAT OFF と 命 合 し て や る と リピ ー ト 機能 を 止め る こと が で きま す 。 
も ちろ ん , プロ グラ ム ハ 中 に 書い て も が まい ませ ん 。 EE, 元 の 状態 に 戻す に は REPEAT ОМ 
と 命令 し ます 。 


1188188081 


1 文字 だ け 打 ち 込ん だ つも りな の に 続け て 2 文字 


7-3 PG こと 直接 話し て こみ よう 


人 @ 音 の 秘密 は 周波 数 


PLAY 文 を 使え ば , 簡単 に 曲 を 演奏 さき せる こと が で きま し た 。 と ころ で , この 演奏 きれ た 音 は 


どの よう に し て 作ら れ て いる の で し ょ うか 。 


コン ピュ ー タ は , 電気 の 0 と 1 の 記号 に よっ て 動い て いま す 。 この 記号 を パル ス と いい ます 。 
パル ス に は 基準 と な る 決め られ た 周波 数 が あり ます 。X 1 の 場合 , 4 MHz( 1 秒間 に 400 万 回 の 
周期 ) に な っ て いま す 。 こ の 基準 と な る 周波 数 を クロ ッ ク 周 波数 と 呼び , 計算 の スピ ー ド な ど 
コン ピュ ー タ の 動作 の 速 る を 決め る 要素 に な っ て いま す 。 こ の 周波 数 を ある 割合 で 分 割 し て い 
ç と , 周波 数 が し だ い に 小 さく な っ て いき ます 。 た と えば , 9090 分 の 1 に する L, 440Hz に な り 


ます 。 こ れ は , 「O4A」 の 音 の 周波 数 に あたり ます 。 表 7-2 
この クロ ッ ク 周 波数 を 分 割 する 操作 (ФА) を 行 な В 階 | 周波 数 | 音 階 | 周波 数 
うぅ の が , PSG の LSI で す 。 ВВ, 1 オク ター プ 上 が る | 020 | 65:40 | G 39200 
#с 69.30 | #С 415.30 
と 周波 数 が 倍 に な っ て お り , その 間 を 12 に 分 ける と D 73.42 A 440.00 
半音 階 が 得 ら 5 られ ま す 。O02C か ら 607C ま で の 5 ォ ク | #D 77.78 # A 466.16 
ター プ の 半音 階 の 各 音 の 周波 数 を 表 7- 2 に あげ て み | Е зам И B; ss 
F 87.30 | ОБС 523.25 
まし だ 。 # F 92.50 | #c 554.37 
この PSG に は , 音 を 出す た め に 必要 な デー タ を 送 | G 98.00 D 587.33 
りこ むと ころ (レジ スタ ) が 14 カ 所 あり ます 。 ンジ # G 103.83 #0 622.25 
_ I A 110.00 | E 659.26 
スタ と tz, 記憶 る れ た デー タ を 特定 の 機能 に よ っ て #A 16.54 Ë 698.46 
演算 を 行なう も の で す 。PCG の 各 レ ジス タ の 働き は , | B 123.47 | #F 739.99 
次 の 表 7- 3 の よう に な っ て いま す 。 03С 30.81 G 783.99 
Os #с 38.59 | #0 830.61 
- D 46.83 | A 880.00 
レジ スタ # D 55.56 | #A 932.33 
レジ スタ の 働き 
| 番号 м Е 64.81 | B 987.77 
0 チャ ン ネ ル A の 周波 数 F 74.61 06C | 1046.50 
1 / # F 85.00 | #С 1108.70 
2 チャ ン ネ ル B の 1 G 96.00 | D 1174.70 
3 / # G 207.65 | #D 1244.50 
4 チャ ン ネ ル C の и A 220.00 | E 1318.50 
5 / #A 233.08 F 1396.50 
6 ノイ ズ の 周波 数 в 246.94 | #Ғ 1480.00 
7 各 チ ャ ン ネ ル の 音色 (ノイ ズ ト ー ン ) 04C | 261.63 | G 1568.00 
8 チャ ン ネ ル A の 音量 # C 277.18 | #6 1661.20 
9 チャ ン ネ ル B の 音量 D 293.66 | A 1760.00 
10 チャ ン ネ ル C の 音量 #0 311.13 | ЖА 1864.70 
11 音 の 波形 E 329.63 | B 1975.70 
12 / F 349.23 | 07C | 2093.00 
13 音 の 波形 の 周期 # F 369.99 
—2@2— 1188186818 са 


7 X1 の 音楽 才能 は ? 
この レジ スタ に デー タ を 送り こむ た め の 命 令 が SOUND 文 で す 。 
@SOUNDX ®{#— с 


まず この SOUND 文 を 使っ て 440Hz の 音 (О4А) を 出し て み ま し ょ う 。 

と りあ え ぇ ず 必 要 な レジ スタ は , チャ ン ネ ル A の 音程 を 決め る レジ スタ 0 と レジ スタ 1, チャ 
ン ネ ル A か ら 音 を 出す よう に 決め る レジ スタ 7, チャ ン ネ ル A の 音量 を 決め る レジ スタ 8 の 4 
つ で す 。 チ ャ ン ネ ル は , PLAY 文 で 三重 和音 を 出し た と き の そ れ ぞ れ の 音 に 対応 し て いま す 。 つ 
まり , PLAY "A:B:C" は , チャ ン ネ ル A, B, C か ら 6 同時 に 音 が 出 て , 和音 し な っ て いた の 
тт. 

音程 を 決め る に は , 分 周 比 し いう も の を 計算 し な けれ ば な り ま せん 。PSG の 中 で は , あら か 
じ め ゅ クロック 周波 数 が 32 分 の 1 に 分 周 き れ て お り , 簡単 に 分 周 比 を 求め る こと が で きま す 。 だ た 
と えば , 440Hz(04A) の 時 の 分 周 比 は 4000000/440/32=284 と な り ま す 。 次 に この 分 周 比 を 
レジ スタ に 送り こむ デー タ に 直し ます 。 次 の 【〔【 プ ログ ラム 7 - 7 〕 は , 出し た い 音 の 周波 数 か ら 
レジ スタ 0, 1 に 送る デー タ を 求め る も の で す 。 

[プロ グラ ム 7 - 7 〕 

18 INPUT "シュ ウス ウ "ЦЕКО 
20 P=4 ボ 18^ る /32/FRG 

30 REG 1 =P\ ら 弓 る 

48 REGB=INT (2 -КЕб1ж255) 
Sû PRINT REGO, БЕСІ 

PSG に 入っ て くる の は , クロ ッ ク 周 波数 を 2 分 の 1 に し た も の で , きら に 内 部 で 16 分 の 1 に 
分 周 し て いま す 。 

30 行 で は 「 半 」 が 使わ れ て いま す 。 こ れ は 「 二 」「 一 」「※」 な どの 算術 演算 子 の 1 つ で , Ж 
数 同士 の 割り 算 を し て , その 答 を 整数 で 与え を ます 。440 を 入れ て みる と , REGO が 28, REG 1 が 
1 と 表示 され ます 。SOUND 文 の オペ ラン ド に , この 値 を 入れ て デー タ を 送っ て み ま す 。 

SOUND 0, 28 : SOUND 1, 14 

まだ 音 は 出 ま せん 。 ど の チャ ン ネ ル か ら 音 を 出す か 決め て いな いた めで す 。 レジ スタ 7 に デ 


ー タ を 送り ます 。 送る デー タ は 次 の よう に な り ま す 。 
アメ イズ В-и 
C B A C B A チャンネル 


3216184 2 1| 45250 
この 場合 は チャ ン ネ ル A か ら も 音程 の 決ま っ た きれ いな 音 ( ト ー ン ) を 出す の で すか ら , 63- 
1= ニ 62 も レジ スタ 7 に 送り ます 。 チャ ン ネ ル B, チャ ン ネ ル C か ら ト ー ン を 出す 場合 に は , それ 
ぞ れ 61, 59 を レジ スタ 7 に 送り ます 。 
SOUND 7, 6241 
と し て み ま す 。 これ で 音 が 出 な い 場 合 は , チャ ン ネ ル A の 音量 が 小さき いこ と が 考え ん られ ます か 
0, レジ スタ 8 に も デー タ を 送り ます 。 こ の デー タ は , PLAY 文 の 音量 の パラ メー タ と 同じ で , 
0 か 615 ま で で す 。 
SOUND 8, 1541 
これ で 音 が 出 た な は ず で す 。SOUND 文 の 場合 , 一 度 デ ー タ を 送る と , 音 を 止め る デー タ を 送る 
CE 118810811 ー ご 3 一 


まで その 音 が 鳴り 続け ます 。 音 を 止め る に は , SOUND 8, 0( チ ャ ン ネ ル A の 音量 を 0 T 2) š 
た は , SOUND7, 63( す べ て の チャ ン ネ ル の 音 を 止め る ) と 命令 し ます 。 あ る い は , [CTRL |+ [DJ 
キー を 押し て 止め る こと も で きま す 。 

表 7 - 2 の 各 周 波数 に 対応 すけ る レジ スタ 0 , 1 の デー タ を 計算 し て みた の が 次 の 【 プ ログ ラム 
7-8) C+, 

[プロ グラ ム 7-8) 


100 READ M$, FRG 

110 IF M$="END" THEN 500М07, 63: END 

120 Р-4ж:й "4 /ЕКО/За 

130 REG 1 =P 255 

140 REG8=INT(P-REG1Xx256) 

145 SOUND, REGA: SODUND 1, REG 1 : SOUND?7, 62: SOUNDS, 15 

150 ТЕ (ЕҒТФМФ,12<>"0" THEN РБІМТ" 13 

160 PRINT M$, REG0, REG1 

178 GOTO 106 

1800 DATA 02С, 55.4, #С, 62. 3, D, 73.42, 80, 77. 78, Е,82.41, Е, 87. зй, #Е, 2 
2.5, 6,98, #5, 183. 83, А, 11й, #8, 116. 54, B, 123. 47 

1819 DATA 03С, 13й. 81, ЯС, 138. 57,0, 146. 83, #0, 155.56, Е, 144.81,, 174 
.61, #Е, 185, б, 196, #5, 207. 65, А, 220, #а, 233. 88, В, 244. 94 

1020 DATA 04С, 251. 63, #C, 277. 18.0, 2293. 66, #0, 311. 13, Е, 327. 63, F 349 
„23, BF, 369.99, 6, 392, #С, 415. 3. А, 440. "А, 466. 16, В, 493.88 

1030 DATA OSC, 523. 25, #С, 554. 37, D, 587. 33, #0, 622. 25, Е, 65?. 24, Е, 598 
. 46, НЕ, 739.99, G, 783. 99, #5, 339. 51, а, 880, на, 32. 33, В, 987.77 

1048 DATA OSC, 1946.5, #С, 1108.7, D, 1174. 7, #0, 1244.5, Е, 1318.5, Е, 139 
6.5, HF, 1480, б, 1568, #6, 1661.2,6. 1760, #A, 1864. 7, В, 1975.7 

1050 DATA 07С, 2й73, END, ð 


DATA 文 に 表 7 - 2 の 音 名 と 周波 数 を 置き , READ 文 で 変数 M $ と FRQ の それ ぞ れ に デー タ と し 
て 読み 込ん で 計算 し て いま す 。 を そし て この 値 を レジ スタ 0 L 1 に 送っ て 実際 の 音 を 出し て いま 
%; 


@ + >+ VV): D Ë £ H + (2 [£ 


チャ ン ネ ル B, C か ら 音 を 出す の も レジ スタ 2, 3 と 4, 5 に 送る デー タ は 同じ で , レジ ス 
タ 7 と レジ スタ 9 , 10 の 値 が 変わ る だ け で す 。 レジ スタ 7 に 送る 値 は , 2 進数 を 使う と わか り 
や すく な り ま す ( 図 7-7)。 

(047-7) 

СВАСВА 
ШП 

それ ぞ れ の チャ ン ネ ル で , 音 を 出す の 
が 0 , 出る なけ れ ば 1 と 指示 し て いま 
す 。 こ の 各 チ ャ ン ネ ル の 指定 を 1 つ に ま 
と め る と 「111001」 と い 2 2 進数 の 文字 
列 に な り ま す 。 先頭 に 「 交 B」 を つけ て 
0 と 1 を 並べ る と , 2 進数 と し て 扱わ れ 
ます 。16 進 数 の 先頭 に 「 交 HH」 を つけ る 
の と 同じ で す 。 

先ほど の デー タ の うち , 音 を 出し たい 


_ 88. 1 тай 1 тай 


С) 
о 


7 X1 の 音楽 才能 は ? 


と ころ を 0, 出 き な いと ころ を 1 と し て 並べ , 6 桁 の 2 進数 に し ます 。 た と えば , チャ ン ネ ル 
C か ら ノ イズ を , チャ ン ネ ル A, B か ら ト ー ン を 出す 場合 


011100 
ii ERA, K=O 
チャ ン ネ ル B, トー ン ON 
チャ ン ネ ル C, トー ン ON 


と いう 形 に な り ま す 。 こ れ を その まま 2 進数 し し て レジ スタ 7 に 送っ て や れ ば よい わけ で す 。 
SOUND 7, &BOIIIOO 
と する こと に な り ま す 。 


@ レ ジス タ の 変化 で 効果 音 を 


音程 を 決め る レジ スタ ー に 送る 値 を 連続 的 に 変化 きせ る と ,PLAY 文 と は 違っ た 効果 を 出す こ 
と が で きま す (ブロ グラ ム 7 - 9 )。 
[プロ グラ ム 7-9) 
18 < UFO 
га FOR К=1 TG 5 
за FOR 1=128 TO 68 STEP-1 
48 SOUNO9, I: SOUND i, 8:500М07, 62: SOUNDS, 15 


58 NEXTINEXT 
58 SOUND7, 63 


ここ で は , レジ スタ 0 に 送る 値 を 0.5 の ステ ッ プ に し て いき ます が , 実際 は レジ スタ に セッ ト 
され る 値 は 整数 だ け で す 。 小数 点 以 下 の 数 値 は 。 レジ スタ に 受け つけ られ る と き に は 四捨五入 
され て 整数 に 直さ る れ て いま す 。〔 プ ログ ラム 7 -10] で 0.5 を ステ ッ プ に し て いる の は , 単に 変化 
の 速度 を 調整 する た めで す 。 ま だ た ノイ ズ も 組み 合わ せ て 使っ て いま す 。 こ れ ら の レジ スタ の 使 
い 方 を 次 の と ころ で 調べ て み ま す 。 

[プロ グラ ム 7-10) 


10 ° ウイ ラク 
20 FOR I=0 TO 255 STEP .5 
за SOUND0, I:SOUND 1, 8: SOUND 7, é2: SQUND8, 12 


40 NEXT 
50 SOUNDS, 31: SOUND7, 55: SOUNDS, 16:SOUND11, 1й:5010М012, 690: ЗОПМО 13, 0 
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7-4 ロロ 完全 マス ター の た め に 


念 音 を 変化 させ る に は 


[プロ グラ ム 7-10) の 墜落 の 音 に つい て , も う 一 度 調べ て み ま し ょ 2 う 。 

40 行 まで で FOR て NEXT に よっ て 変化 させ た 値 を レジ スタ 0 に 送っ て , 高い 音 か ら 6 低い 音 へ 連 
続 的 に 変化 きせ て いま す 。 最 後に , 爆発 埋 の よう な 音 が 出 ま し た 。50 行 を 見 て みる と , レジ ス 
タ 6, 11, 12, 13 と , 今 ま で 使っ て いな か っ た レジ スタ が 登場 し て きま し た 。 

トー ン を 出す に は , レジ スタ 0 か ら 5 ま で の 3 組 の レジ スタ に デー タ を 送っ て いま し た 。 こ 
の 場合 の よう に 雑音 に 近い 音 (ノイ ズ ) を 出す に は , レジ スタ 6 に デー タ を 送り ます 。 レジ ス 
タ 6 へ 送る こと の で きる 値 は , 1 か ら 31 で す 。 こ の 数 値 が 大 きい と , 低い 感じ の 「 ザ ァ ー」 と 
いう 音 で , 小さ きく する と , 高い 感じ の 「 シ ャ ー」 と いう 音 に な り ま す (ブロ グラ ム 7 -11) 。 

[プロ グラ ム 7 -11] 


18 CLS 
20 FOR I=1 TO 31 
за SOUND 6, I:SOUND 9.15:500М0 7,47 
40 LOCATE 9, :2:РРІМТ "Register 6-ШІ 
58 PAUSE 5 
68 NEXT I 
та SOUND 7,63 
ノイ ズ を 出す に は , その 他 に レジ スタ 7 で どの チャ ン ネ ル か ら 音 を 出す か 決め , 8 一 10 で 音 
量 も 決め な けれ ば な り ま せん 。 レジスタ 7 の デー タ に よっ て は , ノイ ズ と トー ン を 1 つの チャ 
ン ネ ル か ら 重 ね て 出す こと も で きま す 。 
レジ スタ 11 て 13 を 使う と , 音 を 変化 きせ る こと が で きま す 。 音 の 変化 の 形 (エン ベロ ー グ 波 
Ж) に は , 図 7-8 に 示し た 8 種類 が あり ます 。 
この 図 の 上 に ある 数 値 が レジ スタ 13 に 送る デー タ で , 芽 で 示し た 時 間 が レジ スタ 11 と 12 に セ 


ッ ト る れる デー タ で 変化 する 単位 で す 。 


(097-8) 
0(1,2,3,9) 
| А 8 А 10 М 11 
15 15 15 15 
0 
į 4(5,6,7,15) i 12 ; 14 я 13 
15 15 15 15 
0 
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7 X1 の 音楽 才能 は ? 


変化 の 時 間 T は , 音量 が 0 か ら 6 最大 15 ま で 変化 する 時 間 で , 約 8 秒 か ら 1000 分 の 1 秒 まで 決 
め ら れ ま す 。〔 プ ログ ラム 7-12) は , TOE) に 対応 する レジ スタ 12, 13 の 値 を 計算 する も 
の で す 。 

〔 プ ログ ラム 7-12) 


18 INPUT "тя", T 

28 З-і/Тж2 

За Х=&ж1@^&/с25ё6жз› 

48 ВЕС12- 1 МТ (Хи254) 

50 НЕС11-: МТ (Х-ВЕБ:2ж256) 

68 50040 8,28:5600М2 1, 1:501М0 7,62:50ММ0 8,16 

70 SOUND 11, КЕО11:501м0 12, ВЕВ12:501МО 13,&B1999 
88 PRINT REG11,REG12 


T エ に 対応 する レジ スタ 11 と 12 の 値 を , 表 7-4 に 示し て お きま す 。 


表 7-4 
T レジ スタ 11 レジ スタ 12 
Т-8 R E G11=36 R E G12=244 
T=7 R E G11=159 R E G12=213 
T=6 R E G11=27 R E G12=183 
T=5 R E G11=150 R E G12=152 
T=4 RE G11=18 R E G12=122 
T=3 R E G11=141 R E G12=91 
T=2 REG11=9 R E G12=61 
=1 R E G11=132 R E G12=30 
=.9 R E G11=119 R E G12=27 
=.8 R E G11=105 R E G12=24 
=.7 R E G11=92 R E G12=21 
=.6 RE G11=79 R E G12=18 
=.5 R E G11=66 R E G12=15 
=.4 R E G11=52 R E G12=12 
=.3 R E G11=39 R E G12= 9 
=.2 R E G11=26 REG12=6 
=.1 R E G11=13 REG12=3 
=.09 R E G11=191 R E G12= 2 
=.08 R E G11=112 REG12= 2 
=.07 R E G11=34 REG12= 2 
= .06 R E G11=212 REG12=1 
=.05 R E G11=134 REG12=1 
= .04 R E G11=56 REG12=1 
=.03 R E G11=234 REG12= 0 
-.02 R E G11=156 REG12= 0 
=.01 R EG11=78 КЕС12< 0 
= .009 R E G11=70 REG12= 0 
= .008 R E G11=62 R E G12=.0 
= ,007 REG11=54 REG12=0 
= .006 R E G11=46 REG12=0 
=.005 R E G11=39 REG12= 0 
= .004 R E G11=31 R E G12= 0 
= .003 R E G11=23 REG12= 0 
= .002 R E G11=15 REG12= 0 
= .001 R E G11 ニ 7 REG12=0 


ここ で きら に , 各 レ ジス タ の 働き と デー タ の 範囲 を 表 7-5 に まとめ て お きま し ょ う 。 
ノイ ズ や エン ベロ ー プ を 使い , 音 の 出 か が た を うま く 組 み 合わ せ て い 〈 と, か な り 5 豊富 な 音 を 


CF 


1180681111 


==7 ق = 


表 7-5 


レジ スタ ー 機 能 デー タ 範 囲 
0 チャ ン ネ ル A の トー ン の 音程 (細か 〈 変化 させ る ) 0 —255 
1 / (粗く // ) 0-15 
2 チャ ン ネ ル B の トー ン の 音程 (細か 〈 1 ) 0 —255 
3 / (粗く / ) 0—15 
4 チャ ン ネ ル C の トー ン の 音程 (細か く / ) 0 —255 
5 Д (粗く / ) 0 18 
6 ノイ ズ の 高 さ 0-31 
г) チャ ン ネ ル A, B, C, に 対す る トー ン , ノイ ズ の オン ・ オ フ 。 | 0 -63" 
8 チャ ン ネ ル A の 音量 (16 な ら エ ン ベ ロ ー プ ) 0-15, 16 
9 ll B w ( / ) 0-15, 16 
10- / бй T / ) 0-15, 16 
1 エン ベロ ー プ の 速 さ (細か く 変 える ) 0 —255 
12 Д (粗く / ) 0 一 255 
13 エン ベロ ー プ の 形状 0-15 


* 2 進数 6 桁 で 表示 で き 、ON な ら 0, OFF な ら 1。 
この 2 進数 を 10 進 数 に 直し た も の が デー タ と な る 。 
= F — 
&B000001 
CBACBA チ ャ ン ネ ル 


出す こと が で きま す 。 一 見 複雑 そう で す が , 1 つ 1 つの レジ スタ の 働き を よく 考え て 組み 合わ 
せ て いけ ば , ゲー ム の 効果 音 な ど に 大 変 便利 に 使え ます 。 


@ ゲ ー ム の 効果 音 も 自由 目 在 


た と えば , PLAY 文 で 文字 列 デ ー タ を 演奏 する 場合, エンベロープ を 変化 きせ る と , また 培っ 
な た 感じ に 聞こ ぇ て きま す 。 その た だ ため に は , 音量 を 指定 する V を 16 に セッ ト し ます 。 こ うし て お 
《 く と, レジ スタ 11, 12, 13 で 決め た エン ベロ ー プ 形状 で 音楽 を 演奏 る せる こと が で きま す 。 (7 
ログ ラム 7-13) СН, これ を 利用 し て , エレ クト ー ン と ピア ノ に 似 た 音階 を 演奏 し ます 。 


[プロ グラ ム 7-13) 
18 ТЕМӘС 144 
28 МЪз" 1504 С5ОЕЕ бе + С +СВабЕЕОСВЕВ" 
за SOUND 11,255:500№0 12, 1:500М0 13, ЗВ111й 
40 PLAY Ms 
5а SOUND 11, за: зоимо 12,39:SDUND 13, й 
60 PLAY Ms 
70 PLAY "VWISCSDEFGARB+C+CBAGFEDCE" 

PLAY 文 で 音 を 続け て な ら す と , 音 が つなが っ て し まう こと は 説明 し まし だ た が , レジ スタ 13 で 
エン ベロ ー プ 形状 を 0 (1, 2, 3, 9 も 同じ ) に し , エン ベロ ー プ の 変化 時 間 を うま さく 指定 
する と , 音 が つなが っ て し まう こと が る けら れ ま す 。 特 に , ピア ノ 曲 や ギタ ー 曲 を PLAY 文 で 
演奏 する と き に 有効 に 使う こと が で きま す 。 最 後に 普通 の 形式 で 演奏 し ます か ら 違 い を 聞き わ 
け て くだ る い 。 

レジ スタ 6 て 出す ノイ ズ も 同じ よ ょ うに, PLAY 文 上 組み 合わ せる こと が で きま す 。 こ の と き に , 
エン ベロ ー プ 形状 を 0 に する と, ドラ ム ( 小 太 鼓 ) の よ う な 音 を 出す こと が で きま す 。〔 プ ログ 
ラム 7 -14] は これ を 使っ た ドラム ソ ロ で す 。 


[プロ グラ ム 7 -14) 
18 TEMPO 128 
28 500М019, 16:500М011,.20:500М012. 19: SOUNDS, 1: SOUND7, 63-32 


-2йв- 11й1йййй DA 
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30 READ M$ 

40 IF M$="Fine" THEN END 

50 PLAY M$ 

68 GOTO за 

та DATA "RiR ア ミロ 1 り 16C3CCC 1CC3CCC 1CC3CC 1CCCC3CCC 1C" 
за DATA "RiR ウ iC3CCC1CC3CCC 1CCCCCECECECC3CRSR " 

әй DATA "R?:R%9:C3CRSC3CRSC0CCCCCCCCCCCCCCCC3CR" 
199 DATA "Fine" 


クニ ンー ` > S УҒА Ы Ж N 

30 行 で エン ベロ ー プ 形状 と 時 間 , ノイ ズ の қ > と て Си 

高き を 決め て , レジ スタ 7 に よっ て , チャ ン ЕТУ; 
ネル C か ら ノ イズ だ け を 出す よう に 指定 し て 


いま す 。 PLAY 文 で は , 必ず トー ン も 出 て し ま 
いま す の で , オク ター プ ブ を 1 に し て 目立た な 
いよ うに し て いま す 。 データ に は 休 待 を 入れ 
て ませ ん が , 音 の 長き に か か わら ず エ ン ベ ロ 
ー プ に よる 音 の 減衰 が 優先 され る た め , 適当 
に 区 切ら れ ま す 。 まだ, この 形状 は , FOI 
ち 上 が り が 鋭い の で , 音 の 頭 の 部 分 (アタ ッ 
ク ) が は っ きり し ます 。 


人 @ 多 彩 な 音 作り 


X 1 の PSG で 音楽 を 演奏 する 場合 , PLAY 文 の と ころ で 説明 し た 音符 の 分 割 の 方 法 と , ここ で 
説明 し た SOUND 文 に よ る エン ベロ ー プ 形状 の 変化 の 組み 合わ せ で , 多彩 な 音 作り が で きま す 。 
だ と えば , チャ ン ネ ル A か ら 普 通 の 方 法 で メロ ディ ー を 出し , チャ ン ネ ル B か ら エ ン ベ ペロー プ 
を か け だ ピア ノ 風 の 音 を 出し て 伴奏 する と いう こと も で きま す 。【〔 プ ログ ラム 7 -15〕 СВ, ビ 
ゼー の 「 ア ルル の 女 」 の 有名 な フル ー ト ツ ロ の 頭 の 部 分 を この 方 法 で 演奏 し て み ま し た 。 

〔 プ ログ ラム 7-15) 

18 ТЕМРО 79 
20 В800М211,12:5005212.30:520М213. й 
за READ M$ 
40 ІС M$="Fine" THEN END 
са PLAY MS 
68 GOTO за 
100 DATA "V1528:V1603C3G+CG+EG" 

116 DATA "в8: 1603036 +С6+Е6" 

128 DATA "0549401 СОЕС :С12е26е +сСе5Я + Е бе" 

138 DATA "с3с +Со+с5:236+СЗ+ЕС"“ 
14й сата "О208Ко?46 10С-3-а:2 1:заз +ОкавЕкак" 

158 DATA "-03-69-в55: -63630+62" 

200 DATA "Fine" 

それ で は 最後 に , 今 ま で に で て きた きる ま ざ ま な テク ニッ ク を 駆使 し た オリ ジ ナ ル 曲 ,「 デ ジ タ 
ル ・ ブ ルー スカ イ 」 を 紹介 し ます (プロ グラ ム 7 -16)。 

この 曲 は , 3 部 形式 の 繰り 返し が ある た め , 曲 を 4 つの 部 分 に わけ て ラベ ル を つけ ます 。 Z 
LT, は じ め に この ラベ ル の 演奏 順序 を FORーNEXT で 読み 込ん で お き , これ に し た が っ て 演奏 
し て で いき ます 。 

軽快 な マー チ で す 。 楽し ん で くだ さい 。 


ا 1181880881 01 


[プロ グラ ム 7-16) 


Б” ج جج جح جح ججح حح‎ 
287 | Digital Blue Sky | 
за“ | | 
487 1 Отгідіпа1 Music Data І 
So * | I 
る 9 < | by HAL. Sugawa | 
79 1 1 
80 ” | 4 STRATFORD COMPUTER CENTER # | 
Ө@ “ ی‎ 


100 TEMPO 144 

110 МІбОТН80:5СКЕЕМӨ, 8:COLOR7, 1:CLS:FE=0 

120 50О0М011.20:500М012, 10: SOUND13, 4: 500306, 1: SOUND7, 53-32 

130 RESTORE5S49:FOR Ісі ТО 7: КЕАО RES$ (1) : МЕХТ 

140 FOR 1=1 TO 7 

150 IF 121 THEN 500М07, 54 

160 ТЕ 1-5 THEN SOUND 11,29:SOUND12, 108:SOUND13, ð 

178 RESTORE RES*(I) 

180 READ МФ 

198 IF МФ-"|" THEN 6070220 

200 PLAY МФ 

210 GOTO 188 

220 МЕХТ 

230 | АВЕ! "DrSOLO " 

240 DATA "R ウ ER アミ 01 り 16C3CCC 1CC3CCC 1CC3CC 1 CCCC3CCC 1С" 

250 DATA "ко: кя:О1у16сзссс1ссзссе 1 ссссссссссзскзе"“ 

260 DATA "к7?: кя : сзскъсзскъсассссссссссссссссзск" 

270 DATA "1" 

280 LABEL" INTRO" 

298 DATA "V1505C1RCØRCRC1R-GØRCRE1REBREREZR:V15046G1RGØRGRG 1RE@RG 
RGIRGORGRG3R:V1S" 

300 DATA "E1RE9RERE 1RC9RERG 1RG9RGRG3RiG1RG9RGRG 1RG9RGR+C 1R+C9R+ ビ 
R+CSR " 

310 DATA "G1RG9RGRG1RERG1RG9RGRG 1RER : SC 1RCgRCRC1R-GRC 1RC み RCRC ів 
-век" 

320 DATA "с: ксакнввкс:каксзк: о:коввоко:кокозек" 

330 DATA "|" 

340 LABEL" THEME " 

350 DATA "04G3R1G60SE48D1ESR3-G1BCRER:N130263R16+C3RGRCRC1RGR:V13 
RS504C 1RC-BC 1RC 1 -BC3" 

360 DATA "G1RGRFRERFSR -GS3R 1-6: СЗВОКСКОЗК 1G 06С1КС-ВС1КС1-ВСЗ" 
370 бата "D4tC1DSR3-G1R-BRDR:B3RGRBRC1RGR ED1RDCD 1RDCD3" 

389 DATA "F1RFRER#DRE づ RG3R 1 -GiB3RGRBRG3R 16: 1RFEF 1RFEF3" 

390 DATA "G4#F 1G5R3C1RERGR : CRGRCRC1RGR " 

400 DATA "#AR#ARARB8GRA1R464R1:A3RFRARG1RBR" 

410 DATA "F4E1F1R-GR-BRERD4R1D4R1:BSRGRBRGG і RARBR" 

420 DATA "C7C3R:C3RGRCR:C1-C-D-E-F-G-A-BC " 

430 DATA "1" 

440 LABEL"TRIO" 

450 DATA "C4R1C7C2R0-A3CF:V16D4RSR3C1RCRCRR3C1RCRCR:U160D04RSR3E1R 
ERERR3E 1RERER 

468 DATA "A7F4R1F4R1:R3C1RCRCRR3CIRCRCR:R3F1RFRFRR3F1RFRFR" 

470 DATA "FSF2R0E3GFC3R1-B:R3-B8A1R-#AR-#ARR3-#A1R-#AR-#AR:R3D1RD 
RDRR3D1RDRDR " 

480 DATA "-#47-#й4#1-#8461:З3-#е:1-нвак-нак-вазкку: R3D КОКОКОЗКУ" 
498 DATA "-#A5-#A4R1-#A3-A-#AD:R3-#A1IR-#AR-#ARR3Z-#A1R-#AR-#AR:R3 
О 1 КОКОККЗО і КОКОК" 

508 DATA "GSG4R1D4R1D4R1:R3C1RCRCRR3-Bñ8A1R-#AR-#AR:G3G1RGRGRR3D1R 
DRDR " 

510 DATA "FSF4R1E1RFRGRAR:R3C1RCRCRR3C1RCRCR:R3F IRFRFRR3G1RGRGR " 
520 DATA "F7R4:F IRF ORFRF 1RFRFSR iC1REgRERC 1RCRCSR " 

530 DATA "1" 

540 DATA "DrSOLO", "INTRO", "THEME", "THEME", "ТРІО", "INTRO", "THEME" 
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7-5 ХІ を 電子 オル ガン に 


人 @ キ ー を 鍵盤 に ./ 


ЖАС, PLAY 文 や SOUND 文 で , プロ グラ ム に よっ て 音 を 出す こと を 調べ て きま し た 。 今度 は , 
X 1 の キー ボー ド を 文字 どおり ピア ノ や オル ガン な どの キー ボー ド 鍵 盤 と 同じ よう に 使っ て 音 
を 出す プロ グラ ム を 考え て み ま し ょ う 。X 1 を 電子 オル ガン に し よう と いう わけ で す 。 

楽器 ほす る に は , た と ぇ ば 上 の キー が 押 き れ て いる 間 は ずっ と それ に 対応 する 音 が 出る よう 
に し な けれ ば な り ま せん 。 こ の よう な と き は , INKEY$( 0 ) を 使う と よる そう で す 。 とりあえず 
キー ボー ド の F, GH, J,K を 「 ド 」 か ら 「 ツ 」 ま で の 音 に 対応 きせ る こと を 考え て み ま す 。 

INKEY$( 0 ) を 使 L, キー が 押 き れ て いる 間 は , その キー の 文字 が 変数 に 代入 きれ て 戻っ て 
きま す 。 こ れ を 利用 し て 作っ た の が 次 の 【〔 プ ログ ラム 7-17) C+, キー の 判断 は 大 文字 を 使い 
まし た の で , IP8B キ 一 を 押し た まま 使い ます 。 

〔 プ ログ ラム 7 -17〕 


14 TEMPO 128 

208 2%=ІМКЕҮФ 0) 

30 IF Z$="F" THEN PLAY "оасй" 
48 ТЕ 2%="5" THEN PLAY "0400" 
50 IF Zs="H" THEN PLAY "04Е0" 
68 IF Z$="J" THEN PLAY "о4ЕЯ" 
78 IF Z$="K" THEN PLAY "0466" 
за 507016 


А. これ は , PLAY 文 に よっ て INKEY$ (0) 1219 ж” 
の 文字 が 入っ て くる た びに , 音 の 長き が 0, つま "Ya 
b 32 分 音符 を 演奏 る きせ て いる た めで す 。 普通 PLAY 
文 で 32 分 音符 を 演奏 る れる 場合 は , 音 が つなが っ 
て 聞こ を る の で す が , この 場合 は , 1 つの 音符 に 


( 7-9) 7-6 
в 名 レジ スタ ー0 レジ スタ ー 1 
E TI IIU HI @ Г 
/ D 169 1 
_ | TE 123 | 
F Jj || IL : 文字 
G 62 1 


D3 11910011 шык 4: == 


ІМКЕУФ 0 ) の 処理 や IF 文 に よる 判断 が つい て いる た め , 音 が 途切れ て し まう の で す 。 と いう の は , 
実際 に 音 が 出 て いる の は 30 行 か 670 行 の 後半 の PLAY 文 の 部 分 だ け で , ほか の 部 分 を 実行 し て 
いる 間 は 音 が 出 な いか ら で す 。 

を こ で SOUND 文 を 使う こと に し ます 。SOUND 文 な ら ば , 一 度 デ ゲー タ を レジ スタ に 送っ て お け 
ば , 次 の デー タ が 送ら れ な いか ぎり , その 音 が 鳴り つづ け ま す 。 各 音 の レジ スタ 0 と 1 に 送る 
デー タ の 値 は , 前 に 求め ' あ こと が で きま し た 。04C か ら 6 まで の デー タ の 値 は 表 7-6 の ょ よう 


に な り ま す 。 
これ を 利用 し て 作り か を た の が , 次 の 〔 プ ログ ラム 7 -18〕 で す 。 


今度 は うま く 音 を 出す こと が で きま し た 。 そ こ で , キー ボー ド の キー に 図 7-9 の よう に 音 を 
割り つけ , 音域 を 広げ て みる こと に し ます 。 
[プロ グラ ム 7 -18〕 


19 TEMPO 1280 

20 7%=1МКЕҮ®(@›:1Е 26-"" THEN SOUND 7,é3:G0TO 20 
30 IF Z$="F" THEN Кй-г21:81-1:6070 90 

48 ТЕ 2%-"б" THEN R0=1é?:R1=1:GOTO 98 

50 IF Z$="H" THEN 80-123:К1-1:5070 90 

68 IF Z$="J" THEN Бйх101:Б1-1:6070 90 

78 IF 2%= "К" THEN R0=&é2:R1=1:GOTO 968 

80 GOTO 28 

90 SOUND 0, ка: SOUND 1,Б1:500М0 7,62:500М0 8,15 
108 GOTO 20 


@ ル ー プ の 時 間 差 の 解決 


図 7-9 から, 全部 で 20 の キー を 使う こと が わか り ま すか ら , どの キー が 押さ れ た か を 判断 す 
る た め に , これ ら の キー を 配列 変数 に 入れ て お きま す 。 文字 (KEN$) は , Б] 7 9 の 順序 で DATA 文 
に な ら 6 べ て お き , READ 文 を 使っ て 読み 込み ます 。 ま た, それ ぞ れ の キー が 押さ る れ た 時 に レジ ス 
タ に 送る 値 (RO0. RI) ù, 同じ 方 法 で 読み 込ま せま す 。 こ の し とき, КЕМ, RO, R1 の 3 つの 配列 
変数 の 添字 は , それ ぞ れ 対応 する よう に し て あり ます 。 それから 後 の 部 分 は 前 と 同じ 考え 方 で 
+ (プロ グラ ム 7 -19)。 


【 プ ログ ラム 7-19) 


10 ОІМ KENS (20), RØ(20), ВІ (20) 

20 MIDTH89iCLS 

30 RESTORE1999:FUR Ісі ТО 20:READ КЕМЪ (1) : МЕХТ 

40 RESTORE1810:FOR Ісі ТО 290: ЕВО RACID RI CI) NEXT 

50 2%-ІМКЕҮ%(й02:ІҒ 2%-"" THEN 500М07, 63: 60Т0 50 

る 9 РОК S=1 То 20 

70 IF 2%=КЕМФ (5) GOTO 760 

89 NEXT:GOTO 580 

90 50/М00, RƏ (5) :SOUND1, Ri (S) :SOUND7, 62: SOUNDS, 15 

108 GOTO 59 

10980 DATA а, И, 5,Е,0,Е, Т, Gs Ys Hs Js І, К. 0, СЭР, "ti", 1,2 

1010 DATA 125,2,89,2,56,2.24,2,250, 1,221, 1, 194, i, 169, 1 

1020 DATA 145, 1, 123, 1, 101, 1,81, 1,62, 1,44, 1,28, 1, 12, 1,253, 0, 238, 9 
225, 0,212, 8 

1040 DATA 198, 0,94, 0, 89, 0,84, 0, 77, 6, 75, 0,71, 0, 67, 0, 6З, 0, 59, 0,56, 
0, 53,0 
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60 行 か 6FOR て NEXT を 使っ て , と の キ 
ー が 押 き れ て いる か を 調べ , その と き の 
KEN$ の 添字 の 値 と 同じ R0, R1 の 値 を レ 
ジス タ に 送っ て いま す 。 

この プロ グラ ム を 走ら せ て みる と , ま 
た 1 つの 欠点 に 気がつき ます 。 キー の 反 
応 が 高い 音 に いく ほど 鈍い と いう こと で 
+, 2 t it, FOR~NEXT を 使っ て , 
KEN$(20) を 1 か ら 順 に 20 へ 向け て 調べ て 
いる た めで す 。 高い 音 ほ ど 添 字 の 大 きい 
配列 変数 に 入っ て いま すか ら , だ た と えば , 
一 番 始め の G な ど は , 1 回 目 の FOR て NEXT 
ルー プ で みつ か り ま す が , 一 番 高い D な 
Elk, 20 回 ルー プ し な いと みつ か り ま せん 。 ル ー プ "を まわ る 時 間 の 差 に よっ て この よう な 現象 
が 生じ た わけ で す 。 

これ を 解決 する た め に , INSTR と い う 関 数 を 使っ て み ま す 。 INSTR 関 数 の 書き 方 は 次 の よう に 
な り ま す 。 

INSTR(A$, B$) 

この 関数 は , B$ と いう 文字 , まだ は 文字 列 が , 文字 列 A$ の 何 文字 目 に 含ま れ て いる か を 調べ 
る 関数 で す 。 ここ で は , 使う キー の 文字 を 順に な ら べ だ も の を A$ と し , B$ に 押 き れ た キー の 文 
字 を 入れ , 何 番目 か を 調べ ます 。 た と えば , B$ に 「H」 を 入れ て みる と , INSTR (A$, B$) の 
値 は 10 に な り ま す 。 こ こ で KEN$ (10) を 調べ て みる と , や は り 「H」 が 入っ て いる こと が わか 
り ま す 。 こ の よう に , INSTR の 値 と 配列 の 添字 が 一 致し ほす か ら , これ を 利用 し て 作り 直し た の 
が 次 の 〔 プ ログ ラム 7 -20〕 СТ. 

【 プ ログ ラム 7-20) 


18 ОІМ KEN$ (20), К (20), Ві (20) 

га HIDTH80:CLS 

30 RESTORE1999:FOUR Ісі TO 20:READ КЕМФ 1) :КЅ%=К5®+КЕМФ (1) : NEXT 
40 RESTORE1919:FOR Ісі ТО 20:БЕАО _ RBCID』R1 C1) МЕХТ 

50 Z$=INKEY$<(0):IF Z$="" THEN SOUND?, 63:607050 

óð S=INSTR (KS も Z$) 

78 IF S=0 GOTO 580 

90 SOUND90,R8(XS5:SOUND1, R1 (S> : SOUND 7, 62: SOUNDS, 15 

100 сото5е 

1000 DATA а, И, SE, DF Ts Gs Ys Hs Js І, К, O L P s | "1" С, 1 

1010 DATA 125,2,8?,2,5£4&,2,24,2,2508.1,221, 1, 194, 1, 16%, 1 

1020 DATA 145,1,123,1,1й1,1,81, 1, 62, 1,44, 1, 28, 1, 12, 1,253, O, 238, 9 
з 225, 08, 212, В 

1048 DATA 1800, 0,94, 0,89, 0,84, й, 79, й, 75, 0,71, 0, 67, 0, 63, 8, 59, 08, 56, 
а, 53, 0 


11818101 — 1 S= 


2 
іл 


30 行 で , 文字 を 読み 込む と き に , 読み 
込ん だ 文字 を つない で KS$ と いう 変数 を 
作り , 60 行 か ら の 部 分 で この KS$ に 対す 
る Z$ の INSTR の 値 を 求め て いま す 。 も し 
KS$ に 含ま れ て いな い 文 字 が 2$ に 入っ て 
いた 場合 は ,INSTR の 値 が 代入 きれ る 変数 
S の 値 は 0 に な り ま す 。 この 場合 は , 音 を 
出す べき キー 以外 の キー が 押 る れ て いる 
こと に な り ま すか ら , 音 を 出す 部 分 を 通 
きず に 50 行 に 戻る きれ て いま す 。 

今度 は か な り 速 いじ キー タッ チ で も , š 
ちん と 音 が 出 ます 。 INSTR 関 数 を 使う と , 
この よう に いく つか の 文字 を まとめ て 判 


pte? 
cay t'i- Sl. 


断 し な けれ ば な ら な い 場 合 , と て も 効率 よく 処理 する こと が で きま す 。 
次 の プロ グラ ム は キー ボー ド が ノー マル , キャ ピタ ル ロ ッ ク , カナ の どの モー ド に あっ て も , 
「Y」 と 「N」 に 対応 する 処理 が で きる よ うぅ 工夫 し た 例 で , INSTR 関 数 と REPEAT て UNTIL を 利用 


し て や ます 。 


Тай LOCATE12, 12:CFLASH1:PRINT"G AME Ü U E R I" 
118 LOCATE13, 14:PRINT"Try Again ? CYAN)" 


120 СР ан: YN ま = リザ ッ ン Nmn ミ リ 


138 REPEAT: АМФ= ІМКЕҮФ: ана INSTR СҮМФ. ANE) UNTIL амкжъя 
148 IF ам<4 THEN СЗ: ВЕЕР: сСОТО:86 
150 ТЕ АМ>3 THEN РЕ МТ: РЕТМТ "ЕМО": ЕМО 


ЖЕ, この オル ガン の 音域 を さら に 広げ て , 実際 の ピア ノ や オル ガン と 同じ 範囲 の 音 を 出せ 


る よう に し ます 。 
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7-6 ペ メモリ こ の 直接 話 法 


@ ク リッ ク 音 を 消 そ う 


X 1 の 音楽 機能 は , 8 オク ター ブ の 音域 を 持っ て いま す 。 X 1 の オル ガン の 音域 も , も う 少 
し 広げ て み ま し ょ Ie 

その 前 に , 前 の アプ ログ ラム で 気 に な っ て いた だ た, キー を 押す と き に 出る クリ ッ ク 音 (コッ コッ 
と いう 音 ) を 消し て お きま す 。 それ に は , CLICK OFF と いう ステ ー ト メン ト を 使い ます 。 元 に 
も どす に は , CLICK ON と し ます 。 

まず , オル ガン の 鍵盤 を 画面 に 表示 する よう に し ます 。 サ ブル ー チ ン 「KEY」 に 処理 を まとめ 
ти: 13 (プロ グラ ズム 7 -21)。 

【 プ ログ ラム 7 -21) 


19999 LABEL "KEY" 
10010 LOCATE9, 15 


10020 PRINT" БЫН uw w 1 | Жырдын ы 
| шини | яны жн 
10038 PRINT" БЕН БЕНЕН w | — l | EE 
о ЖӨЛЕК! | mS wwe 
19949 PRINT" EE SAAREN | ETES YAA I TINEO 
ШИР Ш | . ú ШЕ 
18050 PRINT" БЕН БЕНЕН was | — E | жрм; НН 
| БЕНЕН 1 TORPE жр 
10060 PRINT" | 1 | | | | | | | 

I I | | 
10070 PRINT" 1 | | I 1 I | | I 

I | | | 
10080 PRINT” | A I S 1 D | F I G | H lI J ! K | 


L. T 1 р 2% К-Ы I 
10090 PRINT" 1 | I | | | | | | 

| | | I 
10100 PRINT" 


10110 RETURN 


クリ ッ ク 音 の 消去 と 鍵盤 の 表示 の 作業 の た め , プロ グラ ム に 20 行 を 追加 し ます 。 
20 MIDTHSBGICLSECL ТСКОЕЕ :60508 "KEY" 


人 @ 音 域 を 広げ る に は 


ST, 音域 を 広げ る わけ で す が , 一 応 , この キー ボー ド の 状態 の まま , 下 に 2 オク ター プ , 
上 に 2 オク ター プ 移 動 し た . 5 オク ター プ ブ の 音域 有 カ バー する よう に し ます 。 

まず , 考え られ る の は , KEN$ の 内 容 は その まま に し て , RO0 と R1 の 値 を 20 個 を っ くり 入れ か 
える と いう 方 法 で す 。 そ れ に は , 第 一 の 方 法 と し て , RESTORE す る 行 を 変え て , も う 一 度 READ 
DATA で 読み な おす と いう や りか た が あり ます 。 わ か りや すい 方 法 で す が , オク ター ブ の アッ 
プ ダ ウン を 指定 し た と き に , RESTORE す る 位置 の 管理 が むず か し そう で す 。 

次 に 考え られ る の は , あら か じ め す べべ て の デー タ を 配列 に 入れ て お き , アッ プ ダ ウン に し た だ 
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が っ て この 中 か ら 適 当 な 20 組 を 取り 出す 
方 法 で す 。 この 方 法 で は , R0 と R1 を すべ 
て 読み 込ん で お き , 添字 の 値 を ずら 6 すこ 
と で で きる は ず で す 。 こ こ で は 。 きら に 
一 歩 進め て , メモ リ に 直接 デー タ を 書き 
込ん で お き , オク ター ブ の アッ プ ダ ウン 
が あっ た 場合 は , 読み 出し を は じ め る ア 
ドレ ス を 変え る こと て 必要 な 20 組 の デー 
タ を 得 ら れる よう に 考え まし た 。 

メモ リ と いう の は , コン ピュ ー タ 内 部 
の 記憶 装置 で , その 中 に は , すべ て アド 
レス (Еш) が つけ られ て いま す 。X 1 
に は , 0 か ら 65535 ま で の メモ リ の 番地 が 
あり ます 。 こ の 中 に は , BASIC 自 身 が 使っ て いる と ころ や , プロ グラ ム の 入る 部 分 も あり ます 
か ら , ユー ザー が 自由 に 使え を る の は 限ら れ て いま す 。 ユ ー ザ ー が , 機械 語 で プロ グラ ム を 作っ 
た り , デー タ を 書き 込む た め に は , その ため の メモ リ 領 域 を 確保 し て おか な く て は いけ ませ ん . 
メモ リ 領 域 を 確保 する た め に CLEAR 文 を 使い ます 。CLEAR 文 は オペ ラン ド に 何 も 書 か な いと , 
変数 や 配列 を すべ て 消去 する 働き を し ます が , 後に メモ リ の アド レス を 書い て お く と 。 207 
ドレ ス 以 降 は , BASIC の プロ グラ ム や 変数 に よっ て 影響 を 受け な く な り ま す ( 図 7 -10)。 こ の 
部 分 に 書き 込ま れ た デー タ な ど は , 特に 操作 し な いか ぎり 保護 され て いま す 。 


%0%8%%фФ)-------------------------------------.--.-....2... 


TRON TROFF | 

ディ ズ ニ ー の 「 ト ロン 」 と いつ 映画 を ご 存じ で すか 。X 1 の コマ ンド に も TRON と いう も の 
が あり ます 。 こ れ は TRACE ON の 略 で , プロ ブラ ム を 1 行 実 行 す る ご と に その 行 の 番号 を ( ) 
で 囲み 表示 する コマ ンド で す 。 文字 どおり プロ グラ ん ム の 追跡 を する わけ で す 。 

TRON は プロ グラ ム の デパ ッ グ 時 に 使う も の で , エラ ー の 出る 行 を さがし た り , どこ で ルー 
プ し て いる が か が 確 め の だ りす る こと が で きま す 。TRON を 解除 する と き は TROFF(TRACE OFF) 
を 実行 し ます 。 

LDL, プロ プラム の 動作 が お か し いひ ら こい つて お や み に TRON を 実行 し た と ころ で , な 


が な が ガ デ / ハ ッ グ の 効果 は あがり ませ ん 。 画面 表示 の 多い プロ グラ /、 は , 画面 が 見 苦し こく なる だ 
け で す 。 そ れ よ り , IF 文 に よる 分 岐 の 多い プロ グラ ム で , プロ グラ ム の 流れ を 追っ て いく よう 
な と き に 役立ち ます 。 

また , 効果 的 な デバ ッ プ に は , STOP を プロ プラ ム の あい 間 に は さん で プロ プラ ム の 実行 を 
一 時 停止 させ る 万 法 が あり ます 。 STOP を 使え ば CONT 命 令 で プロ ブラム の 続き を 実行 で き 
ます し , マル チ ス テー トメ ント を 使 つ て いる と きも , 文 と 文 の 間 に 入れ る こと で どの 部 分 で エ 
フー が 出 て いる が ガ 調べる こと が で きま す 。 
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7 X1 の 音楽 才能 は ? 


こめ デ ョ ログ ラム で を せ 。 る & (04 7-10) 
HFE00 (65024) 以降 に この エリ ア を 
指定 し , この 部 分 に , O1G か 607D 
まで の 音 を 出す た め に 必要 な 67 組 の 
КО ER1 を 書き 込ん で お きま す 。 メ 
モリ に 直接 デー タ を 書き 込む た め に 
は , POKE 文 を 使い ます 。 

POKE AD, D 

と 書く と , AD と いう アド レス に , 
D と いう デー タ が 書き 込ま れ ま す 。AD 
に は , 0 か ら 6565535 ま で の アド レス が 


CLEAR 文 に よっ て 
指定 た れ た アド レス 。 


А 8 定 し た アド レ こ の 部 分 が 機械 語 用 エ 
使え ます 。CLEAR 文 で 指定 し た アド гесин. 
ス よ り 後 に し て お か な いと , BASIC を 受け な い 。 


や プロ グラ ム を 壊し て し まい ます の 
で 注意 し て くだ さい 。 
レジ スタ の デー タ を 増し ,&HFE00 &HFFFF 
か ら 交 互 に 書き 込む よう に し た の が , 次 の 【〔 プ ログ ラム 7 -22〕 ст. 
〔 プ ログ ラム 7-22) 


普通 は ここ まで が プロ 
グラ ム に よっ て 使用 さ 
れる 。 


48 RESTORE 10810:ҒОК [=й ТО é7:READ ВО, Ri 
45 POKE ЗНРЕВЮ+ 1ж2, ВО: РОХЕ ЗНЕЕВВ+ 1 Ж2 +:, #1: ЧЕХТ 


1880 DATA As Ws 5,Е,0,Е,7,6, Y, Hs J, ІзЗК,0,1.02,;, "Жу Cod 

1018 DATA 247,9, 103,%9,224,8,%97,8,232,7,119,7,11.7, 166, 5.71, 6, 236 
‚5, 151,5 

1020 DATA 71,5,251,4,177?7,4,112,4, 48, 4,244,3, 187,3, 133, 3, 83, 3 
1939 DATA 35, 3, 246, 2, 203, 2, 143,2, 125, 3, 89, 2, 56, 2, 24, 2, 250, 1,221, 
1, 124, 1, 169, 1 

1040 DATA 145, 1, 123, i 101i, i 8i, ls SRA, 1,44, 1,28, i, 12, 1,253, 0,238, 0 
з 225, 0,212, 9 

1050 DATA 2080,0, 189, 0, 179, 0, 168, й, 159, B, 150, 8, 142, 0, 134, 0, 126, 0, 
119, 6,112, 0, 106,0 

1060 DATA 100, 0,94, 0, 89, 0,84, 0,79, 08,75, 0,71. 8, 57, В, 53, 0,59, 0,56, 
в, 53,0 


この プロ グラ ム を 実行 する L, &HFEO0O か ら の メモ リ の 内 容 は , 図 の よう に な り ま す 。 
(047 -11) 


ҒЕ00 FEO1 ҒЕ02 ҒЕОЗ FEO4 FE05~ FE85 FE86 FE87 FE88 
} l l l l l l l и ! 
249 9 103 9 224 8 = 56 0 58 0 


03G の 音 の デー タ は , &HFE30 (65072) に 入っ て いま す の で , со? F r ZX 2 6 БЖ Ze 2048 
の デー タ を 読み 出せ ば いい わけ で す 。 オ クタ ー ブ を アッ プ ダ ウン し だ たい 場合 に は , 12 音 分 の デ 
ー タ , つま り 024 バ イト ずつ ずら し た アド レス か ら 読 み 出 し ます 。 
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る @ メ モリ の 内 容 を 読み 出す に は 


メモ リ の 内 容 を 読み 出す の に は PEEK 文 で す 。 書き 方 は , POKE 文 と 同じ で , 

PEEK AD, D 
と し ます 。 オ クタ ー ブ の アッ プ ダ ウン を カー ソル キー の [ILI で 行なう こと に し て , この 指定 
が あっ た だ 時に, 該当 する オク ター ブ の G の 音 の デー タ が 入っ て いる アド レス を 計算 し て , 変数 SAD 
に 代入 し , 必要 な デー タ を 読み 出す す サブ ルー チン 「READ」 を 呼び 出す よう に し た の が 〔 ブ ログ 
ラム 7-23) で す 。 サ ブ プルー チン 「READ」 の 中 で は , どの オク ター ブ が 指定 され て いる か わか 
る よう に , マー ク を 入れ る よう に し て あり ます 。 ま た 55 行 と 57 行 で は , 最高 と 最低 の オク ター 
ブ の 範囲 外 の 指定 を 無視 する よう に し て あり ます 。 ア ドレ ス を 示す 「65012 ! 」 な どの 数 値 の 末 
尾 の 「 ! 」 は, 単 精度 の 数 を 表わす 記号 で , 打ち 込ま な く て も 自動 的 に つけ られ ます 。 

〔 プ ログ ラム 7-23) 


19 CLEARS&HFE99:DIM KENS (20). Ей (20), R1 (20) 

20 и10тнеа: с: $:С1 ICKOFF : 560508 "KEY" 

30 RESTORE 1999iFUR 1=1 ТО 28: КЕАО KENS (1) :К5Ф=К5Ф+КЕМФ (1) : NEXT 
40 RESTORE1919:FOUR I=0 ТО 57: КЕВО КО, 1 

45 РОКЕЗНЕЕЙЙ + Тж2, КВ: РОКЕЗНЕЕОЯЙ + Тж2 + 1, 91: ЧЕХТ 

47 58а0+64587г! :GOSUB "READ " 

50 Z$=INKEY#$(X0):IF 2%="" THEN SOLIND7, 63:5070580 

55 IF Z$=CHR$(&H1E) THEN SAD=SAD+24:IF SD>35128! THEN SAD=65120 
1:6070100 ELSE GOSUB "READ" 

57 IF Z$=CHR$(8&H1F) THEN SAD=SAD-24:IF SAD く る 5924! THEN SAD=&580824 
1:650701068 ELSE GOSUB "READ" 

60 S=INSTR (KS まま Z$) 

70 IF 5=0 GOTO 50 

90 SOUNDA, RO 5) :SOUND1, R1 <5) :500М07, 52: SOUNDS, 15 

100 6070580 

1000 DATA а, И, 5,Е,0,Ғ, T С, Ys Hs Js is Ks Ob Ps s "i", 1,1 

1010 DATA 247, 9, 103, 7, 224,38,97, 3, 232,7, 119,7, 11,7, 166, 6,71, 6, 236 
‚5, 151,5 

1020 DATA 71,5,251,4,179,4,112,4,48,4,244, 3, 187,3, 133, 3, 83,3 
1939 DATA 35,3, 245,2, 203,2, 143, 2, 125, 2, 89, 2, 56, 2, 24, 2, 250, 1,221, 
1, 194, 1, 169, 1 

1040 DATA 145, 1, 123, 1, 101, 1 81, 1,62, 1, 44, 1, 28, 1, 12, 1, 253, 0, 238, 9 
1225, 0, 212, В 

1050 DATA 200, 0, 187, 0, 179, 0, 158, й, 159, 0, 150, 0, 142, 0, 134, 0, 126, 9。 
119,0, 112, й, 106,0 

1848 бата 100, 0,94, 0,89, 0,84, й, 77, 6,75, 06,71, 0, 67, O, 63, O, 57, й, 56, 
8, 53, 9 

1279 RETURN 

2000 LABEL "READ " 

2010 FOR I=80 TO 1? 

2020 RØ<(I+1)=PEEK (ЗАО + 1ж2) :В1 (1+1) -РЕЕК (ЗАО + 1ж2 + 1) : NEXT 

2025 ОСТ- (SAD-65024!)7/24+1 

2030 CSIZE2:FOR Ісі TO S:LOCATE78, І:РБІМТЕЙ, "O":NEXT 

2048 LOCATE78, 6-ОСТ:РБІМТЯЙ, "е" 

2058 RETURN 

10000 LABEL "KEY" 

19919 госатеа, 15 


10020 PRINT" БЫН БЕНЕН wa | МЕЗИ ЛИР | 
ІҢ ШЫН I Жән жн 

10030 PRINT" ҚЫН ШЫНЫН ШЕННЕН | EEE E | жне i 
E тын l жаана ПЕЕЛ 

10040 PRINT" MENEN Gs. | ал Y m" | нт нао 
EEPE | ш: юш шш 
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10050 PRINT" 
= шағын | 
10060 PRINT" 
| | 
19979 PRINT" 
| | 
19989 PRINT" 
ь + 4 | 
10090 PRINT" 
| | 
1010@ PRINT" 


7 


X 1 の 音楽 才能 は ? 


19119 RETURN 


以上 の プロ グラ ム で O1G か ら 07G ま で の 音階 を 演奏 する こと が で きま す 。 普 通 の ピア ノ が 77 
鍵 で すか ら , か な り の も の に な り ま す 。 あ と は , 弾い た 音楽 を 記憶 し て お ける よう に する と か 


自動 的 に 楽譜 を 書く な どの 拡張 を 加え て みて くだ さい 。 


11811011 
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Х ] 機能 の し いろいろ 


% пано p 


DD 11011101 аа 


В-1 ワン タッ チキ ー を 使う 


@ ワ ンタ ッ チ キー の 使い 方 


X 1 の キー ボー ド に は , 5 個 の ファ ンク ショ ン キ ー が 用 意 き る れ て いま す 。SHIFT キ ー と あわ せ 
て 使う こと で , 5 個 の キー が 10 個 分 の 働き を する こと は みな る きん ご 存じ の と お り で す 。 これら 
の キー に は , ひん ば ん に 使う コマ ンド な ど が 定義 きれ て いる と いう こと も , も うお な じみ に な 
DTEC しょう 。 

ファ ンク ショ ン キ ー に 定義 され て いる コマ ンド な どの 内 容 を ,KLIST ま た は KEYLIST と いう 命 
令 で 画面 に 表示 する こと が で きま す 。 こ れ ら の コマ ンド や 関数 以外 に し ば し ば 使う も の が ある 
МАС, ファ ンク ショ ン キ ー の 内 容 を 自由 に 定義 し 直し て 使う こと が で きま す 。 フ ァ ン クシ ョ 
ン キ ー の 定義 を 行なう に は , 

(1)KEYn, 文字 列 

(2)DEF KEY 文字 列 
と いう 2 つの 命令 が あり ます が , どちら も まっ た く 同 じ 働 き を し ます 。 (1) の 書き 方 で [F | キー 
に FILES ++: を 定義 する に は , 

KEY1, “FILES” 十 CHR$(13) 
と し ます 。 CHR$(13) は al キー を 表わす コン トロ ー ル コー ド で す 。 こ の 形式 は , KEY LIST に よっ 
て 画面 に 表示 る され る も の と まっ た だ く 同 じ 書 式 に な っ て いま すか ら , キー リス ト を 表示 し て お い 
T, その 表示 を 表 き か える こと に よっ て 定義 を 行なう こと が で きま す (画面 8-1)。 

ファ ンク ショ ン キ ー に は , 最大 15 文 字 ま で の [画面 8 - 1 
命令 を 定義 する こと が で きま す 。15 文 字 を 越え カー ソル を ここ ま て 移動 し 、FILE」 ま で 打ち 、 
て 定義 し よう と し て も 16 文 字 以 降 は 無視 きれ て  ICIRU+ 人 A を 押し て か ら 「S$」 を 打つ 。 

し まい ます 。 

KLIST を 表示 し て , KEY4 の と ころ を 見 る と , 
後に , CHR$(26, 13) と あり ます 。 こ の CHR$(26) кеті. "Вито" +CHR$113) 
は [CTRL|+[ 軌 キー を 押し た の と 同じ 働き , つ 
まり カー ソル か ら 後 を すべ て 消去 する コン トロ 
ー ル コー ド で す 。 これら の コン トロ ー ル コー ド 
も 1 文字 と し て 数 えら 5 れ ま す 。 だ た と えば ,KEY 5. 
“RUN” 十 CHR$(13) は , 「RUN」 が 3 文字 , リタ ー ン キー を 表わす コン トロ ー ル コー ド , CHR$(13) 
が 1 文字 の 合計 4 文字 を 定義 し て いる こと に な り ま す 。 2 つ 以 上 の 命令 を マル チ ス テー メン ト 
で 定義 する 場合 な ど , 文字 数 が 足り な く な る こと が あり ます が , この よう な 場合 は 省略 形 を 使 
う こと で 文字 列 を 短く する こと が で きま す 。 た だ たとえば, 

WIDTH80 : LOAD : RUN] 
と 定義 し た い 場 合 ,。 この まま 打っ て いく 〈 と 15 文 字 で すか ら RUN の U ま で し か 入り ませ ん が , 
KEY1, “WI. 80 : LO. : R. " 十 CHR$(13) 


КЕ 72. “?ТТМЕ +“ +СНК+ (13) 
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と する と すべ で て の 命令 を 1 つの キー に 定義 する こと が で きま す 。 ま た , 
PRINT “Ата 
と 定義 する と き に 
KEY1, "PRINT'A" 
の よう に , ダブ プル クォーテーション マー ク を 重ね て 使う と エラ ー に な り ま す 。 こ の よう な 場合 
は , 「"」 の コー ド で ある CHR$(34) を 使っ て , 
KEY1, "PRINT" 十 CHR$(34) 十 "A" 十 CHR$(34, 13) 
と する こと で 定義 どき ます 。 こ の よ うに 定義 し た も の は , キー リス ト を 取っ た 場合 に も 定義 し 
た と き と 同 じ よ うに , CHRS$( ) の 形 で 表示 きれ ます が , 実際 に |F | キー を 押す と , 
PRINT'A" 
と 表示 され, この 命令 が 実行 され ます 。 


@ フ ァ ン クシ ョ ン キ ー も う 1 つの 用 法 


X 1 の ファ ンク ショ ン キ ー は , 以上 の ょ うに 文字 列 を 定義 する 本 来 の 機能 の 他 に , ON KEY GOSUB 
文 を 使う こと で , 1 か ら 10 ま で の 分 岐 先 の 指定 に 使う こと が で きま す 。ON KEY GOSUB 文 は , 
1 か ら 10 ま で の ファ ンク ショ ン キ ー が 押さ る れ た 時 点 で その キー 番号 に 従っ て サブ ルー チン へ の 
分 岐 を 行なう も の で す 。 た と えば , 

ON KEY GOSUB 100, 200, 300 
と な っ て いる 場合 , ファン クシ ョ ン キ ー の 1 番 を 押す と 100 行 か ら , 2 番 を 押す と 200 行 か ら の 
サブ ルー チン を 呼び 出し ます 。ON KEY GOSUB 文 に よる 分 岐 先 は , 行 番号 を 使い 。 ラ ベル を 
使う こと が で きま せん 。ON KEY GOSUB 文 の 大 き な 特 徴 は この ステ ー ト メン ト に プロ グラ 
ム の 流れ が 来 た と き に 実行 きれ る の で は な 〈《, プロ グラ ム 中 で 一 度 指定 し た 後 は , プロ グラ ム 
が 他 の 作業 を し て いる 途中 で も ファ ンク ショ ン キ ー が 押 き れる と サブ ルー チン へ の 分 岐 が 実行 
され る と いう 点 で す 。 つ まり , ON KEY GOSUB 文 で 分 岐 先 を 決め て お 《 L, ファ ンク ショ ン 
キー を 押す こと に よっ て 「 割 り 込み 処理 」 が 行なわ れ ま す 。〔 プ ログ ラム 8-1 〕 が ON KEY GOSUB 
を 利用 し た プロ グラ ム で す 。 

〔 プ ログ ラム 8 - 1 〕 


18 WIDTH 49iSCREEN , 8:CLS 4 

20 ON KEY GOSUB 5й, 118, 170 

308 FOR L=@ TO 255:COLOR L MOD 7+1:РЯІМТЕЙ CHR% (L) 4 :РАЦБЕ 1:МЕХТ 
40 FOR に =1 TO 255:PRINT "ж" :МЕХТ:БОТО За 
за LABEL "ІУ" 

60 CLS 4:FOR Ісі TO 6 

70 GOSUB "PARA" 

80 CIRCLE (X, Y) Р, С 

?@ NEXT 

180 RETURN 

110 LABEL ">n?" 

120 CLS 4:FOR J=1 ТО š 

130 GOSUB "PARA" 

148 POLY (Хх, Y> R, С, 20, B, 350 

150 NEXT 

150 RETURN 

170 LABEL "ロッ カク リ 

188 CLS 4:FOR K=1 TO 6 


СЕ 116811111 _@2з=— 


190 60508 "рака" 
200 POLY Xs Y), R, Cs 68, 8. 3560 

210 NEXT 

228 RETURN 

2380 LABEL "PARA" 

240 X=INT(RNOX20A) +6й: Y= INT ЕМОЖ: 4B) +56 

250 R=INT (ANOX1898) :С= INT (ЯМмОж? Уу + 1 

268 RETURN 

この プログ ラム を 走ら せる と, すべ て の キャ ラク タ の 色 を 変え な が ら 描 〈 く 処理 し,「*」 を 255 
個 描く 処理 を 繰り 返し て いま す が , ファ ンク ショ ン キ ー の 1 か ら 6 3 を 押す と , 画面 を クリ ア し 
て か ら 1 な ら 6 円 を , 2 な ら 四 角形 を , 3 な ら 六 角形 を それ ぞ れ 6 個 ず つ 描 きま す 。ON KEY GOSUB 
文 で 割り 込み が 行なわ れ て も , 元 の ルー チン の 変数 は 保護 され て いま す 。 で すか ら キ ャ ラク タ 
を 描い て いる 途中 に ファ ンク ショ ン キ ー が 押さ れ て 割り 込み が 行わ れ た 後 も , 元 の ルー チン へ 
戻っ て いく と を その 湊 の キャ ラク タ か ら 再 び 描 き 始め ます 。 ま た , サブ ルー チン を 実行 し て 図形 
を 描い て いる と き に , ファ ンク ショ ン キ ー を 押す と を そこ か ら さ る さらに 分 岐 し ます 。 この 場合 も 最 
初 に 実行 きれ た サブ ルー チン に 戻っ て 来 た と き に は , 残っ て いる 数 だ け 図 形 を 描い て か ら 元 の 
ルー チン に 戻り ます 。 

この よう な 動作 を 確実 に 行なわ せる だ た め に は , メイ ン ル ー チ ン と サブ ルー チン の 変数 が 重 な 
ら な いよ うに し て お く こ と が 大 切 で す 。 

[プロ グラ ム 8-1]〕 の 場合 , |SHIFT| 十 BREAK| キ ー で 実行 を 止め る と , ON KEY GOSUB 
で 使わ れ た [F 1| か ら 6[F 3| の ファ ンク ショ ン キ ー を 押し て も 本 来 の 働き を 行ない ませ ん 。 これ を 
元 に 戻す に は , [c T R L|+ [を 押す か , KEYOFF と いう 命令 を 実行 し ます 。KEYOFF は , KEYON, 
KEYSTOP と と も (=, ON KEY GOSUB 文 を コン トロ ー ル する ステ ー ト メン ト で す 。ON KEY GOSUB 
文 が 実行 きれ だ あと で も , KEYn OFF (nh は ファ ンク ショ ン キ ー の 番号 ) が 実行 きれ る と, пс 
指定 し た キー に つい て は 本 来 の 機能 を 持つ こと に な り ま す 。n を 省略 する と すべ て の ファ ンク シ 
ョ ン キ ー が 本 来 の 機能 に 戻り ます 。 | 


@KEYnSTOP で 保留 する 


KEYnSTOP は , 一 時 的 に ON KEY GOSUB の 働き を 保留 する も の で , KEYnON が 実行 きれ る と 
解除 きれ , ON KEY GOSUB に ょ る 分 岐 が 行なわ れる よう に な り ま す 。【 プ ログ ラム 8-1〕 С, 
次 の 3 行 を 追加 し て くだ きい 。 

25 KEY 2 STOP:KEY З STOP 
95 KEY 2 ON 

155 KEY 3 ОН 

こう し て 実行 す る と , 初め は 円 を 描く サブ プル ー チ ン に し か 分 岐 で きま せん が , 一 度 こ こ へ 分 岐 
する と 95 行 で [|F 2| キ ー が ON と な る た め , [F 2| キ ー の 分 岐 が 機能 し ます 。 きら に , ここ へ 分 岐 す 
る と 155 行 で |F 3| キ ー も ON に な る た め , 3 つの ファ ンク ショ ン キ ー す べ て が 機能 し ます 。KEYON, 
KEYOFF, KEYSTOP は , キー 番号 を 指定 する と を その キー だ け に 働き , 省略 する と 10 個 の ファ ン 
クシ ョ ン キ ー す べ て に 働き ます 。 

ゲー ム の 途中 な ど で キ ー の 説明 を 見 た い 場 合 な ど , ON KEY GOSUB を 利用 する と 便利 で す 。 
この 場合 , 分 岐 が 行なわ れ て は いけ な い 部 分 に は KEYn STOP を 入れ て ぉ おけ ば , 不都合 な こと は 
起き な いで 済む よう に な り ま す 。 
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ве 先取 り キ ー の 働き 


@ 先 取り キー (KEY0 ) 


X 1 に は 先行 キー 入力 バッ ファ と いう 機能 お が あり ます 。 
KEY9, "FOR 1=@ TO 255:PRINT#0 CHR%(I);:NEXT"+CHR$ (13) 
と 打ち 込ん で みて くだ さい 。 リ ター ン キ ー を 押す と ダ プ ルク ォ テ ーション で 囲ん だ 部 分 が 画面 
に 表示 る れる と 同時 に , その プロ グラ ム が 実行 され て 255 個 の キャ ラク タ が 表示 る れ ま す 。 これ 
が 先行 キ 一 入力 バッ ファ の 働き で す 。 先行 キ 一 入力 バッ ファ に 文字 を 書き 込ん で お て 〈 と , 次 に 
入力 待ち の 状態 し な っ た と き に (ここ で は 画面 に 「OK」 と 表示 る れ た と き に ), ダブ ルク ォ テ 
ーション で 囲ん だ 文字 列 を キー ボー ド か ら 打 ち 込 ん だ の と 同じ 働き を する こと に な り ま す 。 
先行 キ 一 入力 バッ ファ に 文字 を 書き 込む に は , 
と し ます 。 フ ァ ン クシ ョ ン キ ー と 同じ よう に , CHR$(13) な どの コン トロ ー ル コー ド も 書き 込む 
こと が で きま す 。 こ の 先行 キ 一 入力 バッ ファ の 文字 列 は , プロ グラ ム が 入力 待ち の 状態 , つま 
b, INPUT 文 で 止ま っ て いる 時 や , INKEY$ 関 数 キー が 押 き れる の を 待っ て いる 状態 に な る ま 
で 保持 され て な り , この よう な 状態 に な っ た 時 に 画面 上 に 出力 され ます 。 したがって, これ ら 
の 命令 の 前 に , KEY 0 の 命令 を 書き 込ん で お 〈 と , 入力 が あっ だ の と 同じ 状態 に な り ま す 。 
次 の プロ グラ ム を 走ら せ て みて くだ さい (プログ ラム 8-2)。 

[プロ グラ ム 8-2〕 


10 WIDTH 4CKSCREEN 0, BCLS 4 

28 LOCATE 0, 9: INPUT "AUT ロ =1 MANUAL =2 "зам 
За IF AM<>1 АМО AM<>2 GOTO 28 

40 IF AM=1 THEN KEYO, "1" +СнКЪ (13) 
58 LOCATE 8.2: 1МРИТ リエ ン = ニ 1 シカ ク = ら 
68 ОМ М 50508 "Іх", "277", "0577" 

70 GOTO 58 

88 LABEL "ІХ" 

98 CLS 4:FOR 151 TO ё 

100 GOSUB "PARA" 

110 CIRCLE (Хх, Y), R, C 

120 NEXT 

130 IF AM=1 THEN XEYA, "2"+CHR$ (13) 
140 RETURN 

150 LABEL "277?" 

160 CLS 4:FOR Ісі ТО é 

170 GOSUS "РАЗА" 

190 POLY (X, ү), &, С, PO, 8, 356 

190 NEXT 

200 IF AM=1 THEN KEYO, "З" +С-8Ъ (13) 
210 RETURN 

220 LABEL "Grn?" 

230 CLS 4:FOR 1=1 TO é 

240 50508 "Рака" 

250 POLY X, Y) Е, С, óð, а, 340 

268 NEXT 

270 IF AM=1 THEN KEYG, "1"+CHR$(13) 
280 RETURN 

270 LABEL "PARA" 


Е: 1110ййй1 = es == 


300 X=INT ‹8МОж200) +50: Y=INT CRNDXi 30) +50 
310 R=INT(RNOX1Ø00):C=INT(RNOX7) +1 
320 RETURN 


初め に AUTO か MANUAL か を 聞い て きま す が , MANUAL に する と, 円, 四角 , 六角 どれ 
に する か を 選ぶ よう に な り ま す 。AUTO に し て お ぉ お く と, まず 40 行 で KEY 0 に ` 1 / 十 CHR$(13) が 
入り ます か ら , 50 行 の INPUT 文 で 回 [と キー ボー ド か ら 入 力 し た の と まっ だ く 同 じ 働 き を し ま 
すか ら , 60 行 で 円 を 描く サブ ルー チン を 呼び 出し ます 。 この サブ プル ー チ ン で は , RETURN 文 の 前 
の 130 行 で , KEY 0 に ~2? 十 CHR$(13) が 書き 込ま れ ま すか ら , 50 行 に 戻っ た 時 に [と 入力 し 
た こと に な り , 四角 を 描く サブ ルー チン を 呼び 出し ます 。 こ こ で も 同じ よう に し て 先行 キー 入 
カバ ッ フ ァ か ら の 入力 が 行なわ れる よう に な っ て いま すか ら , 結果 的 に は , 円 っ 四角 っ 六角 っ 
円 一 四角 …… と 繰り 返し て いる こと に な り ま す 。 

この よう に , キー 入力 バッ ファ を 使う と キー 入力 を 行なわ な く て も , キー 入力 が あっ た だ の と 
同じ 状態 を 作る こと が で きま すか ら , ゲー ム の デモ 画面 を わざ わざ 別に 作ら な く と も , メイン 
ルー チン を 自動 進行 きせ る こと に よっ て デモ を 行なう こと が で きま す 。 


@ プ ログ ラム の 自己 増殖 


先行 キ 一 入力 バッ ファ に 書き 込め る の は , 
最大 64 文 字 び すか ら , うま く 〈 使 っ て や る と 
お も し ろ い こと が で きま す 。 特 に, XIT 
は プロ グラ ム の 修正 を 行なっ て も 変数 が 保 
護 さ きれ て いま すか ら 便 利 で す (普通 BASIC 
で は プロ グラ ム の 修正 や 行 の 追加 を 行なう 
と 変数 は クリ ア さ る れ ます )。 と いう の は , 
BASIC で は , 先頭 に 数 字 の つい た 文字 列 は 
すべ て プロ グラ ム 上 の 「 行 」 と し て 扱わ れ 
ます か ら , 先行 キー 入力 バッ ファ を 利用 し 
T, プロ グラ ム を 自己 増殖 させ る こと が で 
きる の で す 。 た と えば , | 

KEYO, “1000 PRNIT А"+СНЕФ(13):1 ``, 

と 打っ て みて くだ きい 。 LIST を 取る と 今 ま で に な か っ た 1000 行 目 が 作ら れ て いま す 。 こ の こと 
を うま く 利 用 する L, 入力 し た も の を DATA 文 と し て 次 々 に 追加 し て いく こと が で きま す 。 こ れ 
が 【 プ ログ ラム 8-3〕 で す 。 こ こ で は , 名 前 と 電話 番号 を 入力 する と, 

行 番号 DATA 名 前 , 電話 番号 
と ょ と いう 形 で プロ グラ ム に 次 々 と つけ 加 を られ て いき ます 。 

[7а/9&ё-3] 


10 и107н4й: 5СКЕЕ А, 8:CL5S 
28 GYO=1998 


за сосатей, 8: INPLIT "МАМЕ ". NAMS 
48 ТЕ МАМФ= "ЕМО" THEN SCREENG, 1: КЕта, STR (GY) +" DATA "+ "ЕМО, ЕМО 
"+СНЕФ (13) + "2й су0<-" + 5 Тез (GYO) +CHRS с: 3) SCREEN, 8: END 


50 Г ОСАТЕЙ, 4: ІМРОТ "ТЕЦ, Мо. ", TELE 


ロ EBIE E=‏ 111 کے 
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óð SCREENG, 1 

70 KEYO, ЗТКЪ (СТО? +" DATA " +чАМФ+", "+ ТЕ. В+СЯКЪС1З) + "СОТОЯЙ" +CHRS < 
13) 

80 END 

90 570<6у0+ 18 

100 SCREENG, й:с| 5: сотсзй 


KEY 0 で 先行 キー 入力 バッ ファ に 
行 番号 DATA 名 前 , Ша #5 2601090 
と いう 内 容 が 書き 込ま れ ま す 。 この 内 容 は , 80 行 目 の END 文 に よっ て 画面 に 表示 きれ ます 。 する 
L, 同じ 内 容 を キー ボー ド か ら 打 ち 込 まれ た だ た とき の 働 き を し ます 。 
行 番号 は , 変数 GYO に よっ て 管理 きれ て いま すか ら , 次 々 と 新しい 行 が 作ら れ て いく こと に な 
り ま す 。 この よう に し て DATA 文 を つけ 加え だ プログ ラム を セー ブ し て お け ば , 次 回 か ら は READ 
文 で この デー タ を 読み 込む こと に よっ て , デー タ を 増やし て いく こと が 可能 で す 。 ここ で 注意 
し て お きた だ たい の は , 70 行 に END 文 を 置い て いる こと で す 。 これ が な いと , 先行 キー 入力 バッ ファ 
の 内 容 が 出力 され な いた め , 何 の 意 味 も な く な っ て し まい ます 。 ま だ ただ, 先行 キー 入力 バッ ファ 
に よっ て プロ グラ ム が 書き 込ま れる 様子 は 見 られ ませ ん が , これ は 60 行 の SCREEN 文 に よっ て , 
表示 る され て いな い 方 の 画面 上 で 作業 し て いる た めで す 。 ま た , 入力 を 終る に は 名 前 に 「END」 と 
入れ ます が , この と き 最 後 の デ ゲ ー タ と し て 
行 番号 DATA END, END 
が 書き 込ま れ , る さらに 20 行 の 変数 GYO の 値 も 書き 直し て いま すか ら , もう一度 RUN を し て も それ 
まで に あっ た も の の 後に 新しい 行 が つけ 加え られ て いく わけ で す 。 


m 
өз 


111ййй11 -ге?- 


S-3 いろ いる ろ な 関数 


これ まで に も いろ いろ な 関数 を 使っ て きま し た が , X 1 の BASIC に は , それ ら の 他 に も 科学 
技術 計算 な ど に 活用 で き る, 数値 関 数 が 用 意 さ る され て いま す 。 数 値 関数 を まとめ て 見 る と と も に , 
グラ フィ ッ ク 機 能 を 利用 し て , これ ら 6 の 関数 の グラ フ 化 な ども 試し て み ま し ょ ° 

一 般 的 に , 関数 は 次 の よう な 書式 で 使わ れ ま す 。 

FN の 部 分 が 関数 名 で , SIN, COS な ど を 書き ます 。 XX は 求め る 対象 と な る 数 値 で , 「 引 数 」 と 


呼び ます 。 この 引数 は , それ ぞ れ の 関数 に よっ て 取り 扱え る 範囲 が あり ます か ら 注 意 し て くだ 
きい 。 


⑧ 三 角 関 数 


三角 関数 に は , SIN, COS, TAN が あり ま (048-1) 
+, 引数 に は ラジ アン 単位 を 使い ます 。 角 
Е (DEG) を ラジ アン に 変換 す る に は , RAD 
関数 を 使い ます 。 図 8- 1 は, 0 から 720 度 
DSIN, COS, TAN の 値 を グラ フ 化し た も 
ос, 三角 関数 の 引数 に は I の 値 を RAD 関 数 
に よっ て ラジ アン に 変換 し た も の を 使用 し 
て いま す 。 関 数 の 値 に よっ て , グラ フィ ッ \ Е 
ク 座標 に 対す る 補正 を 行なっ て る 点 に 注意 А j 
し て (だ さい 。 三角 関数 の 引数 に は , 負 の | V Ff 


то, 数 式 を 使う こと も で きま す 。 Л/ | LAJ N 
140 行 で , RAD 関 数 に よっ て 。I の 値 を ラ | . | 


ジア ン に 変換 し , 変数 THETA に 入れ て いま す 


x г. А: ра ИХ N 
| H 


(プロ グラ ム 8-4)。「360' 三 2 ァ ラ ジア ン 」 で すか ら , 140 行 を 省略 し , 130 行 を 
FOR ТНЕТА=@ ТО PAIt4) STEP PAI (1) /é4 
と する こと も で きま す 。 

[プロ グラ ム 8-4] 


ӨГЗЕЕ- й„й: С 5 а 
118 LINE (0,1090) - (240, iB), PSET, 7 
вт, 7 


128 LINE 6, й) - (Й, 197), 25 
138 FOR 159 TJ 722 STEP 

ій THETA=SRAD <I?) 

158 х=1/3 

160 YS=SIN(THZ Та) жаз 

170 ҮС=С05‹Т-ЕТА› жай 
180 YT=TAN (THETA) жз 
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ます 。 
190 IF ҮТ>198 THEN で マイ = ミュ ママ Е ЗЕ IF YT<1 THEN ҮТ-й 
200 РВЕТ (Х, YS, 2) 
210 РЅЕТ (X, YC, 4) 
220 PSEZTKX, Үт, > 
230 NEXT 
244 HCOPY в 
PAI は , 円 周 率 の n 倍 の 値 を 求め る 関数 で す 。PAI (1)=3.1415927 +, この PAI 関 数 は グラ 


フィ ッ ク 文 字 の 「z」 で 代用 する こと が で きま す 。 綿密 な 計算 を 行ない た いと き は , z=#L UC, 
倍 精度 に する と , 

z # =3.141592653589798 
と し て 使う こと が で きま す 。 こ の 場合 , 他 の 変数 も 倍 精度 に し て お ぉ く 必要 が あり ます 。X 1 の 
数 値 変数 は 通常 有効 桁 数 が 8 桁 で す が , 変数 名 の 後に # を つけ る と , 有効 桁 数 が 16 桁 の 倍 精度 
に な り ま す 。 プ ログ ラム の 初め に , DEFDBL と いう 命令 を 使え ば , 指定 の アル ファ ベッ ト か ら 始 
まる 変数 すべ て が 倍 精度 に 宣言 きれ ます 。 

DEFDBL А-2 (すべ て の 数 値 変数 を 倍 精 度 で 使う ) 

DEFDBL X, Y (X と Y で 始ま る 変数 名 の うち 数 値 変数 の み 倍 精度 で 使わ れる ) 


この 場合 , 倍 精度 に 指定 し た 変数 名 に は 「#」 を つけ る 必要 は あり ませ ん 。 また, 指数 表示 
の 時 に は 「E」 で は な く 「D」 が 表示 る れ ま す 。 
この 逆 に , 有効 桁 数 8 桁 に 指定 する に は , 変数 名 の 後に 「!」 を つけ る か , DEFSNG 文 で 富 言 
し て お きま す 。 
これ ら の 指定 の 他 に , 似 た も の で , DEFINT と DEFSTR の 命令 が あり ます 。 
ゲー ム を 作る と き な ど , 小数 点 以下 の 細か い 数 値 を 無視 し て も よい 場合 が あり ます 。 こ の よ 
うな と き は , 変数 を 整数 で 使う よう に 指定 し て お 〈 と , 計算 の 速度 シア 上 げ る こと が で きま す 。 
変数 名 の 後に % を つけ る と 整数 と し て 扱わ れ ま す 。 この 宣言 を 行なう の が DEFINT 文 で す 。 
また , プロ グラ ム 中 で , 文字 列 変数 を た くるん 使う 場合 , DEFSTR 宮 言 を 行なう と , その 文字 
で 始ま る 変数 に は 今 ま で の よう に 「$」 を つけ る 必要 が な く な り ま す 。 
これ ら 6 の 変数 の 型 の 宣言 は 。 あら か じ め ど の 変数 に どの よ うな デー タ が 入る か を 整理 し て お 
* て 使う と 効率 の よい プロ グラ ム 作 り が で きま す 。 
三角 関数 に 関連 し て , АТМ (X) が あり ます 。 こ れ は , 数 値 X に 対す る アー クタ ンジ ェ ン ト を 
求め る 関数 で す 。 ア ー ク サイ ン , アー クコ サイ ン は 関数 と し て 用 意 き る きれ て いま せん が , вом 
数 と 組み 合わ せ て , ユー ザー 定義 関数 と し て 使う こと が で きま す 。 
アー クサ イン ……… DEFFNA)=ATNX ン SQR(1 一 X へ 2)) 
アー クコ サイ ン ……DEFFNB) ニ テーATN プ SQR(1 一 X へ 2)) 十 PAI(1) プ 2 
これ ら を 誘導 関数 と 呼び ます 。 こ の 他 に も , 誘導 関数 に よっ て 求め られ る 関数 が いく つか あり 
ます が , これ ら 6 の 使い 方 を 《8- 3》, (8-4) に まとめ て あり ます か ら 利 用 し て くだ きい 。 
SOR(X) は , 平方 根 を 求め る 関数 で す 。 駐 の 値 は 負 に な る と , 当然 エラ ー に な り ま す 。 平 方 根 ( 2 
乗 根 ), 多重 根 以 外 は , 次 の よう に する と 求め る こと が で きま す 。 
WX =XA(1 ノ Y) 
B): YK =XA1/3) 


e 


ES 11144181 =2а7— 


人 @ 指 数 関数 


EXP(X) と 書か れ ま す 。 指 数 関数 は , 自然 対数 の 底 e (е =2.7182818) の X 乗 を 求め る 関数 で 
+, X 1 で 扱え る 最大 の 数 は 1.7X10"“ ま で で すか ら , 双 X の 値 は ー88 か 688 ま で で こ の 範囲 を 越え 
る と エラ ー (オー バー フロ ー) に な り ま す 。 


Фл 


LOG(X) と 書き ます が , 求め られ る の は 自然 対 
数 (数学 で は Im) に な り ま す 。10 を 底 と する 常用 
対数 を 求め る に は 

LOG) プ LOG(10) 

と も まゆ ず 。 


人 @ 階 乗 な ど 


FAC(X) と 書き , X! の 値 , つ まり , 1 から X の 
値 す べ て を か けた も の を 求め ます 。 X の 値 は , 
0 か ら 33 ま で で す 。 

SUM(X) 
1 か 6X ま で の 数 値 の 和 を 求め ます 。 XO, 0 か 6 1 X1019 ま で で す 。 


@ そ の 他 の 数 値 関数 


く 絶対 値 
ABS(X) とし, X の 絶対 値 を 求め ます 。 
<> 
SGN(X) L, ХОЯ, 0, 正 で ある と, SGN(X) の 値 は , 次 の よう に な り ま す 。 
X>0 の と き SGN⑳)= 1 
X ニ 0 の と き SGN)= 0 
X く 0 の と き SGNQ)=ー 1 
< 整数 化 > 
INT)…… 数 値 X を 超 ん な い 最 大 の 整数 を 求め ます 。 
FIX)…… 数 値 の 整数 部 を 取り 出し ます 。 つ まり, 小数 点 以下 を 切り 捨て た 値 を 求め る こと 
が で きま す 。 
INT) の 場合 「X を 超え ない 」 と いう こと で すか ら , X の 値 が 負 の と き に , INT(X) と FIX(X) の 
値 は 違っ て きま す 。 
МТ (一 3.14) ニー 4 
FIX (一 3.14) ニー 3 
と な り ま す 。 
数 値 デ ー タ を 任意 の 桁 で 四捨五入 する に は , 小数 点 以下 N 二 1 桁 目 を 四捨五入 し て , 小数 点 


に 
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以下 N 桁 まで 求め る と する と, 
Y 三 INTXX10AN 寺 0.5) プ 10AN 
と し ます 。0.5 を 0.9 に する と 切り 上 げに な り ま す 。 


E ァ 11160111 


ва 文字 関数 


ここ で は , 前 に 出 て きだ も の も 含め て , 文字 処理 の 関数 を も う 一 度 ま と め て お きま す 。 
それ ぞ れ , まっ た だ く 〈 逆 の 働き を する も の や , 関連 の ある も の と 対比 し な が ら 6 説明 し て いき ま 
す 。 


@ASC<——cCHR$ 


ASC 関 数 は , 文字 の 持っ て いる キャ ラク タコ ー ド を 数 値 に 変換 し ます 。 書式 は , 
A=ASC(A$) | 
05%-1,4%7, 
X=ASC(“A”) と する と , A の キャ ラク タコ ー ド で ある 65 が X の 値 に な が り ま す 。 
А%-“АВС”: Y ニ ASC(A$) 
の よう に , 文字 列 の 場合 は , 左端 に ある A の キャ ラク タコ ー ド 65 が Y の 値 に な り ま す 。 こ の 逆 に , 
数 値 を キャ ラク タコ ー ド と する 文字 を 求め る の が CHR$ 関 数 で す 。 通常 
A$=CHR$(65) 
の よう に 使い ます が , カッ コ の 中 に カン マ で 区 切っ て 数 値 を 並べ る と , その 数 値 に 対応 する 文 
字 列 が 求め られ ます 。 た と えば , 
PRINT CHR$(83, 72, 65, 82, 80, 32, 88, 49) 
と する と, 「SHARP X1」 と いう 文字 列 が 書か れ ま す 。32 は , スペ ー ス (空白 ) の キャ ラク タ 
ュー ド で で ず 。 


@VAL——STR$ 


VAL 関 数 は 数 字 で で きた 文字 列 を 数 値 に 変換 し ます 。「 十 」 と 「 一 」, そして, 16 進 数 や 2 進数 
を 示す と き に 使う 「&」 以 外 の 文字 が 先頭 
に あっ た 場合 , VAL の 値 は 0 に な り ま す 。 ま 
ы, 文字 列 の 途中 に 数 字 以外 の 文字 が 入っ 
た 場合 , それ 以後 は 無視 し ます 。 た と えば , 

A=VAL ("325063") 
の 場合 , 変数 A の 値 は , 325 に な り ま す 。 

VAL 関 数 は , 16 進 数 な ど を 10 進 数 に 変換 す 
る と き に 便利 に 使え ます 。 

PRINT VAL (“&H” + "FC20") 

16 進 数 の FC20 が 10 進 数 に 変換 きれ ます 。 
この よう な 場合 , を HH を つけ て 16 進 数 と し て 
扱わ れ ま すか ら , 数字 以外 の A か ら 6F も 有効 
に な り ま す 。 この 例 の 場合 , 値 と し て 一 992 
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が 表示 され ます 。 こ れ は , &H8000 以 上 の 16 進 数 は , 10 進 数 に 直し た 場合 , 65536 の 補 数 と し て 
表 わ る れる た めで す 。 で すか ら , 実際 に 10 進 数 に 換算 する と 64544 と た なり ま す 。 メ モリ の アド レ 
ス 計 算 の 場合 、X1 の フリ ー エ リア は すべ て この 補 数 表現 の 範囲 - な り ま すか ら , 
65536 — VAL (“&H” +AD$) 

の よう に し て や る 必要 が あり ます 。 た だ し, POKE 文 や PEEK 文 な ど で ア ドレ ス を 指定 する と き に 
は , 直接 この 負 の 値 を 入れ て も 問題 あり ませ ん 。 

VAL 関 数 と は 逆 に , 数 値 を 文字 列 に 変換 する の が , STR$ 関 数 で す 。 数 値 の 先頭 に は 必ず 符号 桁 
が あり ます 。 正 の 数 値 の 場合 先頭 に 「 十 」 の 符号 が 表示 る れ な い 分 の スペ ー ス が 入り ます 。 
し た が っ て , 実際 に 得 ら れる 文字 列 の 長 る は, 数 字 の 桁 数 十 1 の 長き に な り ま す 。 


@HEX$, OCT$, BIN$ 


これ ら は それ ぞ れ , 数 値 を 16 進 数 8 進数 , 2 進数 の 文字 列 に 変換 する も の で す 。 定 数 の 場 
合 , 先頭 に 16 進 数 は &H, 8 進数 は &0, 2 進数 は を B を つけ ます 。 

«ВВ, 進数 の 0 と 1 の 組み 合わ せ の 文字 列 で すか ら , グラ フィ ッ ク の プラ イオ リティ や , 
SOUND 文 の レジ スタ ー 7 の 設定 に 使う と わか りや すく 《 な り ま す 。 た と えば , グラ フィ ックス の 
プラ イオ リティ を , 青 と 黄色 の グラ フィ ッ ク 優 先 に し た い 場 合 , 2 進数 の 各 桁 が , パパ レット コ 
ー ド に 対応 し ます か ら , 

PRW &BO1000010 
の よ うに 書く こと が で きま す 。SOUND 文 の レジ スタ 7 の 場合 。 音 を 出す と ころ を 0 に し ます か 
b, チャ ン ネ ル 1 か ら 音 を , チャ ン ネ ル 2 から ノ イズ を 出す 場合 , 

SOUND 7, 8В010001 

と し て や れ ば よい わけ で す 。 


Ф ЕРТ%, RIGHT$, MID$, INSTR 


これ ら に つい て は ,「 テ レビ 24 時 間 了 予約 」 の プロ グラ ム の 中 で , 詳し 説明 し まし た 。 こ の 中 
で , MID$ 関 数 に は , 少し 変わ っ た 使い 方 が あり ます 。MID$ 関 数 は , 一 般 的 に 

MID$ ( АФ, 3, 2) 
の よう に 使い ます が , 文字 数 を 指す パラ メー タ を 省略 する と , 3 文字 目 か ら 6 後ろ 全部 を 取り 出 
すこ と が で きま す 。 RIGHT$ 関 数 で は , 右 か ら 何 文字 か を 指定 し て 取り 出し ます が , この 方 法 を 
使う と , 左 か ら 何 文字 目 以降 を 文字 列 の 最後 まで を 無 条 件 に 取り 出す こと が で きま す 。 【〔【 プ ログ 
ラム 8- 5 ] は この こと を 利用 し て , 計算 式 を 文字 列 に 入力 し , この 式 の 値 を 計算 する も の で す 。 

170 行 で , 符号 (演算 子 ) 以降 の 文字 を 取り 出す と き に この 方 法 を 使っ て いま す 。 


[プロ グラ ム 8-5]〕 
100 САФ (1) =" +" СавсФ)ки- "u IC (3) = K" CAS (4) ни" 
110 INPUT "リサイ サン シキ "уст 


129 FOR 1=1 ТС 4 

138 FOR 1-1 TO LENIS) 

140 IF УМІ0%С%.7.12-Саж(1) TEEN GOTO 169 
150 МЕХТ:МЕХТ 
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166 


170 

18808 

190 FF 

208 END 

210 ANS=VAL (XF) HVAL TED RET IT 
220 ANS VAL (XP) -VAL YS) RETURN 
230 ANS = ЈА (ХФ) KVAL CYS) RE TURN 
240 ANS=VAL (X$) AWAL (YS) RETURN 


160 行 の INSTR 関 数 は , 文字 列 の 中 に , ある 文字 列 が 何 文字 に 入っ て いる か を 調べ る 関数 で す 。 

一 般 的 に は 
| A=INSTR (n, A$, 8%) | 
と 書き ます 。 n は , A$ の 左 か ら 何 文字 目 か ら B$ を 探し は じ め る か を 決め る 数 値 で , 省略 する と 
最初 の 文字 か ら 順 に 探し て いく こと に な り ま す 。A$ の 中 に B$ が 含ま れ て いな い 場 合 。 値 は 0 に 
な り ま す 。 

も う 1 つ , MID$ に は 関数 し し て で は な 《, ステ ー ト メン ト と し て の MID$ も あり ます 。 た と 
えば , 

MID$ ( A$, 3, 1 )=“A” 

と する と, A$ の 3 文字 目 が A に 置き か えら れ ま す (018-2). 一 般 形 で は , 


(Bd 8 - 2) 


[| мб ( А8. т, п)=В | 
と 書き ます 。 m は , 置き か を を は じ め る 位置 , n は , B$ の |。 。 =° 1121318 [5] 
左 か ら 何 文字 で 置き か える か を 指定 する も る の で す 。m の 値 нына азса? 

が A$ の 長 さ を 越 えて いる 場合 , 何 も 変 化し ませ ん 。 ま た , еее 

n の 値 が B$ の 長き る より 大 きく な っ た 場合 . エ ラー に な る わ 


け で は な く , B$ の 長 る で 処理 され ます 。 CIEI 


ここ が A” に 置き か わる 


@STRING$, SPACE$ 
回 回 回 回 回 回 茹 
SPACE$ は , 希望 の 文字 数 の スペ ー ス を つく り ま す 。 


と 書き , n は スペ ー ス の 数 を 指定 する 数 値 で 0 か 6255 ま で 使う こと が で きま す 。 ス ペー ス 以 外 
の 文字 や , 文字 列 を 希望 する 数 だ け 連 続き せ た い と き に は , STRING$ 関 数 を 使い ます 。 
STRING$ 関 数 に は 


STRING$(n, A$) ① 

STRING$(n, А) @ 
の 2 と な り の 使い 方 が あり ます 。① の 場合 A$ に 入っ て いる 文字 列 を n 個 つない だ も の に な り ま 
す 。② の よう に , 数 値 ( こ こ で は 数 値 変 数 A) を 書く L, その 数 値 の アス キー コー ド を 持つ 文字 
が n 個 つなげ られ だ も の と な り ま す 。 つまり, 


SPACE$(n)= ニ STRING$(n, 32)=STRING$(n, “ ”) 
と いう こと に な り ま す 。 
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@LEN 
LEN は 文字 列 の 長き (文字 数 ) を 求め る 関数 で す 。 【 プ ログ ラム 8-5〕 の 130 行 で は , FOR~TO 
~NEXT の 終了 値 を 決め る の に , LEN を 使っ て いま す 。 | 


@HEXCHRS 

CHR$ と 似 て いま す が , こち ら は カッ コ の 中 に 16 進 数 2 桁 の な ら び の 文字 列 を 入れ ます 。 す る 
t, この 文字 列 の 左 か ら 2 文字 ずつ 区 切っ て , その 16 進 数 の 示す キャ ラク タコ ー ド に 対応 する 
文字 に 変換 し ます 。 したがって, 
| HEXCHR$ (“414243”) =СНЕ$ (&H41, &H42, &H43) 
と いう こと に な り ま す 。HEXCHR$ 関 数 は , 数 値 の 両端 を ダブ プル クォーテーション で 囲い , 文字 
列 と し て 使う こと に 注意 し て くだ る さる い 。 この 文字 列 に は , 区 切り と し て , スペ ー ス を 置く こと 
が で き , この スペ ー ス は 無視 きれ ます 。 
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@2 っ の ファ イル 機能 


АЖС, いろ いろ な デー タ を パソ コン に 入力 し , それ を 表 や グラ フ に 表現 する 方 法 を 学ん で 
きま し た 。 これ ら の 処理 は , デー タ 入力 ーー 処理 一 > 表示 (出力 ) と いう ぅ 一 連 の 作業 で し た 。 と 
съм, 実際 の デー タ の 中 に は , この 一 連 の 作業 が 終っ た あと も 保存 し て お き , あと か ら も う 
一 度 別 の 処理 を 加え た り , 処理 し た 結果 に よっ て 再 検討 し な けれ ば な ら な いこ と が あり ます 。 
この よう な 場合 、 デ ー タ を ファ イル と し て 保存 し て お く こ と が 必要 に な り ま す (保存 )。 

まだ た パソ コン 本 体 の メモ リ に 入り 切ら な い 多 量 の デー タ を 扱う と き な ど , その デー タ を ファ 
イル に 書き 込ん で おき, 少し ずつ 読み 出し て 処理 する よう な 方 法 も 考え を な く て は いけ ませ ん ( 補 
助 記憶 )。 

も う 1 つ は , 各地 に 散ら ば る 支店 か ら 集 それ は ーー 
め た デー タ を 一 括 し て 本 店 で 処理 する と い gnr ЖУ 
っ た , 別 の 場所 か ら 得 ら れ た デー タ を まほ | «Алвес 
め て 全体 の 様子 を 調べ る よう な 場合 も 考え NN まで to マス 
られ ます (デー タ の 集積 )。 | Fd 

この よう に , ファ イル を 有効 に 使う と , 
きる ま ざ ま な メリ ッ ト が あり ます 。 

ここ で は ,X 1 本体 で で きる カセ ッ ト テ ー 
デ に よる ファ イル 作成 に つい て 見 て いき ま 
す 。 ファ イル に は ,「 シ ー ケ ン シ ャ ルフ ァ イ 
ル 」 と 「 ラ ンダ ム フ ァ イル 」 が あり ます 。 

シー ケン シャ ルフ ァイル で は , デー タ は 
ファ イル の 先頭 か ら 順 番 に 記録 (格納 ) され て いて , 読み 出す と き に は た だ と え ぇ 不 必要 な デー タ 
が あっ た と し て も , 順番 に 読み 出し て いか な く 《 く て は な り ま せん 。 

ラン ダム ファ イル で は , 希望 の デ ゲー タ を ファ イル の 中 か ら 自 由 に 取り 出す こと が で きま す 。 
これ は ちょ うど LP レ コー ド と カセ ッ ト テ ー ズ プ の 関係 に 似 て いま す 。 レ コー ド で は , 聞き た い 曲 
の 先頭 に 針 あ むろ す だ け で 選曲 で きま す が , カモ セット テー プ で は を その 曲 の 先頭 まで , 順に テー 
プ を 送っ て いか な く 《 て は な り ま せん 。 

ラン ダム ファ イル で は , 希望 の ゲー タ を ファ イル の 中 か ら 自 由 に 取り 出す こと が で きま す 。 
これ は ちょ うど LP レ コー ド と カセ ッ ト テ ー プ の 関係 に 似 て いま す 。 レ ュー ド で は , 聞き た い 曲 
の 先頭 に 針 あ な おろす だ け で 選曲 で きま す が , カセット テー プ で は を その 曲 の 先頭 まで , 順に テー 
プ を 送っ て いか な く て は な り ま せん 。 

X 1 で は BASIC を 与え る 方 法 に , カセット, ディ スク , ROM の 3 と な り が あり ます 。 カ セッ 
ト 版 BASIC(CZ8CB01) で は , ラン ダム ファ イル は グラ フィ ッ ク メ モリ と 外部 メモ リ に , シー ケ 
ン シ ャ ルフ ァイル は カセ ッ ト テ ー プ , グラ フィ ッ ク メ モリ , 外部 メモ リ に 作成 する こと が で き 
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ここ で は , ファ イル の 機能 を 使い な が ら 6「 ア ドレ スプ ブッ ク 」 を 作っ て み ま し ょ う 。 ま ず 氏 名 , 
住所 電話 番号 を 入力 し て お き , 氏名 を 入力 する こと で 住所 や 電話 番号 を 調べ られ る よう に し 
ます 。 1 人 分 の デー タ は 氏名 , 住所 , 電話 番号 と し な り ま す 。 こ の よう な デー タ の まとまり を 1 
レコ ー ド と 呼び ます 。 テ ー プ 上 へ 1 レコ ー ド の デー タ の 書き 込ま れる 様子 を 図 に 示す と 図 8 - 3 
の よう に な り ま す 。 


(018-3) 


EE 
ië 
E 和 i L 


実際 に この よう な ファ イル を 作る ステ ー ト メン ト を 見 て いき まし ょ う 。 

まず , ファ イル を 作成 す を る た め に は , デー タ を カセ ッ ト テ ー プ に 送り 出 き な けれ ば な り ま せ 
ん 。 こ の だ た だめ に は , カモ ッ ト テ ー プ の ファ イル を 使用 で きる よう に 用 意 を し て ファ イル の 書き 
込み を 行なう の か , 読み 出し を 行なう の か も 指定 し ます 。 こ の た め の ス テー トメ ント が OPEN で 
す 。 

まず 書き 込み を 行なう に は , 

と し ます 。 n は ファ イル 番号 で , X1 で は ファ イル の 取り 
扱い し は すべ て この ファ イル 番号 で 指定 し ます 。 一 度 に 使 
用 で きる ファ イル 番号 は , 0 か ら 15 ま で で , いく つま で 
の ファ イル を 使う か は , MAXFILES と いう 命令 に よっ て 指 
定 し て お きま す 。 この 指定 を し な いと き は , n の 値 は 自動 
的 に 1 に な り ま す 。 

“O”, パソ ツ コ ン か ら デ ー タ を Output す る , つま り 「 テ 
ー プ へ の 書き 込み の た め の フ ァイル OPEN」 で ある こと 
を 示し ます 。 こ こ で は , ファ イル ディ スク リプ タ は カセ 
ッ ト を 使い ます か ら , 「CAS : 」 と し て いま す 。 もちろん, この 部 分 を 他 の 外部 記憶 装置 に する 
こと も で きま す 。 た と え ぇ ば, 「MEM : 」 と すれ ば , グラ フィ ッ ク メ モリ を 外部 記憶 装置 と し て 
使う こと に な る わけ で す 。 


@ テ ー プ へ の デー タ 書 き 込 み 


テー プ へ の デー タ の 書き 込み は , PRINT#, МАТЕО 2 と お り の 命令 が あり ます 。PRINT# 
св, 複数 の デー タ を 書き 込む 場合 , 区 切り と し て 「,」 や 「:」 を 使う こと が で きま す 。 し か 
L, デー タ が 文字 変数 の 場合 , これ で は か えっ て 都合 の 悪い こと に な っ て し まい ます 。 た だ と を え 
ば ,PRINT#1,A$: B$ C$ と し た と する と , セパ レー タ の セミ コロ ン の 働き に より , テー プ 上 に 
3 つの 文字 変数 が 連続 し て 書き 込ま れ て し まい ます 。 で すか ら , 読み 出し た と き に は 3 つの 別々 
の デー タ で は な く , ひと つづ き の も の と し て 読み 出さ きれ て くる こと に な り ま す 。 
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一 方 WRITE# を 使う と, それ ぞ れ 別 の デー タ と し て 記録 され ます 。 МАТЕЯ C, デー タ は セミ 
コロ ン や カン マ を つけ た まま 書き 込ま れ , 読み 出す た と き に も この 形式 で 読み 出さ れ ま すか ら , 
並べ て 書き 込ん で も それぞれ が 別 の デー タ と し て 扱う こと に な り ま す 。 た だ だし, 数値 デ ー タ の 
場合 は PRINT# で も , 別 の デー タ と し て 読み 出し が 行なわ れ ま す 。 

ファ イル の デー タ の 書き 込み が 終了 し た ら , OPEN の 反対 に ., ファ イル の 使用 を 終わ る と いう 
指示 を し な く て は いけ ませ ん 。 これ が CLOSE 文 で す 。 後に ファ イル 番号 を 付け る と , 60774 
ル だ けが 閉じ られ , 省略 する と 使用 中 の すべ て の ファ イル が 同時 に 閉じ られ ます 。 


@ バ ソコ ン ア ドレ スプ ブック 


「 パ ソコ ュ ン アド レス ブッ ク 」 の プロ グラ ムリ スト を 見 て み ま し ょ う 。 
[プロ グラ ム 8-6〕 


10 ОРТІОМВАЅЕ 1 iDIM NAMS (255), ADRS$ (255), TELS (255) 

20 MIDTH49:SCREEN9, @: INIT:CLS 

аё “Ahhh MENU Фань 

50 CONSOLE:LINE (O, 5) - (37,5), "—" 

る 9 LOCATES, 8: COLORS: PRINT hdi (19/17 アト レス フ トック баба" 


70 COLOR4:LOCATEQ, 2: PRINT"DATA INPUT --- 111 SEARCH === 12) 
88 COLORS:LOCATEQ, 4: PRINT "MAKE CMT --- 13] LOAD EMT === 141 
85 согокз:госатега, é: PRINT"SELECT COMMAND Е J" 

90 Ізі 


100 | ОСАТЕЗ6, 6: РЕРЕАТ: 2%= 1МКЕҮФ (1) UNTIL 265>"" AND (Z$="1" OR Z 
Ф= "г" ОК 25-"3" ОК Z*$="4") 

110 CONSOLES, 15:03 VAL (Z$) GOSLB TENPUT "SEARCH", "SAVE". "LOAD" 
190 CONSOLE:GOTO тай 

200 LABEL" INPUT": 1<ЕЕ + 1 

210 ГОСАТЕЙ, 8: РВІМТ "МАМЕ :ЕМО +“ 7270" 

220 ГОСАТЕЙ, 18: РКТМТСНКЪ (9) :! ОСАТЕЯ, 18: INPLIT "NAME :", NAMS 

230 WHILE NAM$<>"END" 

240 LOCATE, 13: PRINTCHR* (5) :LOCATEG, 13: INPUT"ADRES: ", ADRSS 

250 LOCATE, 17:РБІМТСНВЫ(52:-0СӨТЕй, 17: INPUT"TEL. 1", TEL $ 

260 LOCATEG, 22:PRINT"OK ? (Үее ог No)” 

270 і ОСАТЕ 18, 22:ВЕРЕАТ: 2%= ІМКЕҮФ (1) UNTIL 2%="Ү" DR ZS="N" :CREU 
288 IF 2%="Ү" THEN NAMS (1) =МАМФ: АСЗ5% (1) =АОЗ5Ф: ТЕ! Ф (1) =ТЕЦФ:І=1+ 
1: сотогга 

298 IF 2%-"М" сотоггае 

390 WEND 

310 EF=I:CLS:CONSOLE 

320 RETURN 

350 LABEL "SEARCH" 

360 Ізі 

370 CLS:LOCATEQ, 8:COLOR3:INPLT"NAME :",SEARC$ 

380 FOR I=1 TO EF 

390 IF SEARC$=NAM$ (1) GOSUB"PRINT":GOT0410 

400 NEXT 

405 LOCATE0, 11:COLOR2:PRINT"HU U ASP лр " 

410 LOCATEQ, 22: COLOR3:PRINT" U サマ ズ スカ (Ys ог Ме)" 

420 LOCATE20, 22: REPEAT:Z$=INFZEYS(1):UNTIC Zš="Y" DR Z$="N" 

430 IF 2%-"М" THEN С: 5: ВЕТОКУ 

448 GOTO3780 

500 LABEL "PRINT" 

510 госатеа, 11:PRINT"ASRES: “;ВОКБФСІО 

520 | ОСАТЕЙ, 15:РВІМТ"ТЕЦ "i iTEC$(I) 

530 RETURN 

る 99 LABEL "SAVE" 

610 ОРЕМ "0", #1, "CAS: ТЕ" 

る 29 FOR Ізі ТО ЕЕ 

630 ИКТТЕН:, МАМФ (1) ADRS まま CI + TELS CI) 
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る 49 NEXT 

650 CLOSE 

660 RETURN 

708 LABEL "LOAD" 

710 1=1:0РЕМ"І",#1, "CAS: TEL" 

720 IF EOF X(1)=-1 GOTO 750 

730 INPUT#1, АФ, ВФ, СЪ 

732 МАМФ (1) =АФ: ADRS$ (1) -ВЪ: ТЕ %(12-С%Ф 
740 I=I+1:GOTO720 

750 EF=I-1:CLOSE:RETURN 


入力 部 分 の 基本 は ,「 テ レビ 24 時 間 」 と ほとん ど 同 じ で す 。 全 体 の 構成 は , 「 メ ニュ ー 形 式 」 
に な っ て お り , こ の メニ ュー か ら ど の コマ ンド へ も 移 れ る よう に な っ て いま す 。230 行 に , WHILE 
が あり ます が , これ は , REPEAT て UNTIL と 同じ よう な ルー プ を 作る ステ ー ト メン ト で す 。 300 行 
の WEND と 対 に な っ て 使わ れ ま す 。REPEAT 一 UNTIL は , 条件 の 判断 を ルー プ の 終わ り で ある UNTIL 
で 行なう の に 対し , WHILE て WEND で は , ルー プ の 入口 に 書く WHILE で 判断 する と ころ が 違い ま 
す 。 こ の 違い は , REPEAT 一 UNTIL は 少な く と も 1 回 は ルー プ を 通る の に 対し , WHILE 一 WEND 


で は , 1 回 も ルー プ を 通ら な い 場 合 も あり ます 。 
〔 図 8 一 4〕 


ルー プ の 終り て 判断 し て 最初 か ら 条 件 が 成り 立た な いと 
いる た め 、 最 低 1 回 は ル き は 、 1 度 も ルー プ を 通ら な い 
ー プ を 通る 


この プロ グラ ム の 全体 は , 4 つの サブ ルー チン で 組み 立て られ て いま す 。 デ ー タ を 入力 する 部 
分 , 氏名 か ら 住 所 と 電話 番号 を る が す 部 分 ,。 そ し て , ファ イル へ の 書き 込み と 読み 出し の 部 分 
に な っ て いま す 。600 行 か 65660 行 が テー プ へ の 書き 込み の 部 分 で , 配列 に 記憶 きれ て いる デー 
タ を 順番 に 書き 込み ます 。 こ こ で は , 現在 いく つの デー タ が 入っ て いる か が , 変数 EF に 代入 き 
れ て いま す 。 

ファ イル か ら の 読み 出し を 行なう の が 700 行 か ら の 部 分 で , 710 行 で OPEN “I” ELT, 読み 
出し の た め に ファ イル OPEN する こと を 指定 し て いま す 。 こ の と き , モッ ト る れ だ た テー プ に , с 

《 つ の デー タ が 入っ て いる の か わか り ま せん か ら , FOR て NEXT 文 を 使う こと は で きま せん 。 Z 
+С, 720 行 で , EOF と いう 関数 を 使っ て , ファ イル か ら 最 後 の デ ゲー タ が 読み 出さ れ た か どう か 
を 調べ て いま す 。 こ の 関数 の 値 は ファ イル の 最後 を 読み 込ん だ ど と き に 一 1 に な り ま す 。 言い 
か えれ ば , ファ イル へ の 書き 込み の と き に ファ イル が CLOSE さ れ た 時 点 で , 一 1 が テー プ に 書き 
込ま れる わけ で す 。 従 っ て , この 値 が ー 1 に な れ ば , も う 読み 出す デー タ は 残っ て いな いこ と 
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に な り ま すか ら , ファ イル を 閉じ て , 次 の 処理 へ , この 場合 で は 「 メ ニュ ー」 に 戻る こと に な 
り ま す 。 こ の 方 法 を 使う こと で , ファ イル に 記録 る きれ る デー タ の 数 が あら か じ め わ か っ て いな 
(Tb, 最後 まで 正しく 読み 出せ る わけ で す 。 


人 @255 文 字 を 一 気 に 読 み 込む 


ファ イル か ら の デー タ 読 み 出 し に は , 8519, LINEINPUT#, まだ は LINPUT# と いう ス 
テー トメ ント が あり ます 。 こ れ は , 画面 上 の 1 行 分 を 文字 変数 に 入れ る LINEINPUT と 同じ ょ うぅ 
な 働き を する も の で , ファ イル か ら 255 文 字 分 の デー タ を 一 気 に 文 字 変 数 に 読み 込み ます 。 扱う 

ー タ が 多い 場合 онаа нылады АЗДА ақа 
まとめ て 読み 出す こと が で きま す 。 後 は 1 つの 文字 変数 に 読み 込ま れ た デー タ を も うぅ 一 度 分 解 
し て や れ ば 良い わけ で す 。 


る 急ぐ とき は これ / ノ 


さらに, 書き込み, 読み 出し を 高速 で 行ない た い 場 合 ,DEV0$, DEVI$ を 使う と 便利 で す 。DEVO$, 
DEVI$ は , 256 バ イト (256 文 字 ) 分 の デー タ を まとめ て 書き 込み , 読み 出し を 行なう 命令 で す 。 
DEVO$ “ CAS: " п, A$, B$ 

ОЕМ“ CAS: " , п, A$, B$ 
と 書き ます 。n は レコ ュー ド 番 号 ( フ ァイル 番号 と は 別 の も の ) СЗ. A$, B$ に は 128 バ イト ずつ , 
合計 256 バ イト の 文字 を 入れ て 置き , これ を レコ ー ド と し ます 。 フ ァイル ディ スク リプ タ に 「MEM:」 
や 「EMM:」 を 使う と ラン ダム ファ イル と し て 使う こと が で きま す 。 こ の 場合 , レコ ュー ド 番 号 に 
よっ て 指定 し た レコ ュー ド か ら 6 読み 出し が 行なわ れ ま す 。〔 プ ログ ラム 8- 7 〕 は , 「MEM:」 を 使 
っ て ラン ダム ファ イル を 使え る よう に し た 例 で す 。 

[プロ グラ ム 8-7〕 


18 OPTION ЅСВЕЕМ2 : INIT"MEM: " 
20 A$=STRING$ (128, "а") :Въхаф 
за C$=STRING$ (128, "B"):D$=C$ 
40 E$=STRING$ (128, "С") :ЕЪ5Е+ 
50 РЕМОФ"МЕМ: ", 1, A$, B$ 

60 ОЕУОФ "МЕМ: ", 2, C$, D$ 

70 ОЕМО3"МЕМ:", 3, E$, F$ 

88 INPUT" レ コ - ト * NO. ", REC 

?@ ОЕУІФ"МЕМ: ", REC, X$, Y$ 

100 PRINT X$; Y$ 

110 GOTO 880 


DEVO$, DEVI$ は , 大 変 高速 な 処理 が で き , し か も ラン ダム アク セス が 可能 で す 。 必 ず 1 レコ 
ー ド の 長 る を 256 バ イト に そろ えな けれ ば な り ま せん か ら , ブ ログ ラム 中 で この 処理 を 行なう 必 
要 が あり ます 。 ま だ た この ステ ー ト メン ト を 使っ て 記録 きれ て いる と き に は , FILES を 取る こと は 
で きま せん 。FILES 命 令 で 表示 る れる よう な 一 切 の も の (ディ レク トリ ) を 記録 し な いこ と も , 
この 高速 性 に 一 役 買 っ て いる わけ で す 。 

Жы, カセ ッ ト テ ー プ を 使っ た 場合 で も , シー ケン シャ ル に 記録 きれ て いる レコ ー ド 番号 を 
き が せ ば よい わけ で すか ら , テー プ を 巻き 戻し て あれ ば , レコ ュー ド 番 号 を 指定 する こと に より , 
ラン ダム アク セス 的 な 処理 が で きま す 。 
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〔 プ ログ ラム 8-8〕 


147 


20 A%=ST= 1435 (128, TA"? i ВЪзАЕ 
за CE=STRINGS 128, "B" i DS = 5 
ай ZmZ*=STRIFGS 125. "С") GES 


58 DZuDs"CAS:", 1, AS, 35 
る 9 ЗЕМОв"САВ:", 2, Съ, DE 

78 DEVOS"CAS:", 3, Ев. ЕФ 

80 REW? INPUT" し コー ト " No. ", REC 
94 DEVIS"CAS:”, ВЕС, ХФ, YS 
100 PRINT Х%:ү% 

119 GOTO ва 


人 @ 大 量 の デー タ 処 理 は ? 


ビジ ネス 用 の プロ グラ ム な ど で , グラ フィ ッ ク を 使用 し な い 場 合 は 「MEM: 」 を 使う こと で 最 
大 190 レ ュー ド の デー タ を 扱え ます 。 当然 これ ら の デー タ は , メイ ン メ モリ に は 関係 し ませ ん か 
6, 大 量 の デー タ を 処理 する こと が 可能 で す 。 作業 の 終了 時 に は 「MEM: 」 に 入っ て いる デー 
タ を カセ ッ ト へ 移し て お け ば , 次 か ら は , 最初 に この デー タ を 「MEM: 」 に 入れ 直す こと に よ 
>, 高速 ゲー タ 処 理 が で きる よう に な り ま す 。【〔 プ ログ ラム 8-9〕 は この 例 で , デー タ と し 
て 33 か ら 222 ま で の アス キー コー ド の 文字 を , 256 文 字 分 つなげ た も の を 仮 の データ と し て いま 
す 。 こ の 仮 デ ー タ を 作る 部 分 (30 か 660 行 ) を 実用 的 な も の に 作り か ぇ える こと で 応用 で きま す 。 

また , SCREEN 文 に よっ て 「MEM:」 の 状態 を 画面 に 表示 させ て いま すか ら , DEVO$ で デー タ 
が 書き 込ま れる 様子 が 見 られ る よう に な っ て いま す 。 実用 と し て 使う 場合 に は , プロ グラ ム 中 
に 「SCREEN」 と だ け 入 れ て お け ば , 画面 に は 表示 され ませ ん 。70 行 で レコ ュー ド 番号 を 入力 する 
L, その レコ ー ド の デー タ が 表示 る れ ま す 。 こ こ で 一 1 を 入力 する と , 120 行 に 移り , DEVO$ と 
DEVI$ を 交互 に 使っ て 「MEM:」 の 内 容 を カセ ッ ト テ ー プ に 移し ます 。200 行 以降 の プロ グラ ム を 
実行 し て , この 逆 の 働き を る せる こと に よっ て , カモ セット テー プ の デー タ を 「MEM:」 に 移し , 
ラン ダム ファ イル と し て 使う こと が で きる よう に な り ま す 。 


[プロ グラ ム 8-9〕 


14. SCREEN, 8:CLS4 

гй CLS:QPTIONSCREEN2: INI T "MET: " 
за РОК :=33 ТО 222 

4й A*=STRING$ (128, СНЕФ CIJ) :ВЗАЕ 
Өй OEVOB"MEM: ", I-32, A$, BS 

68 NEXT: SCREEN 

78 INPUT "レル コー ト “ Мо. ti カラ 19й) -1 F° CMT ", РЕС 
88 ТЕ REC=-1 GOTO 128 

за БЕМІФ"МЕМ:",КЕС, X$, Y$ 

100 PRINTX$; YE 

118 вото 76 

120 FOR 151 ТО 1?8 

130 ОЕМТъ"МЕМ:", 1, АФ, BE 

148 СЕЧОФ "САБ: ", І, A$, BE 

150 NEXT 

i60 END 

гай FOR 151 TO 1РЯ 

218 DEVIŁ"CAS: ", I A$, ВЕ 

пей ОЕМОЪ"МЕМ:", 1, АФ, BE 

230 NEXT 

гай ЕМО 
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S-E ファ イル ディ スク リプ タ と INIT 文 


@ フ ァイル ディ スク リプ タ っ て な に 


ここ で は 、 フ ァイル ディ スク リプ タ に つい て 詳し く 説 明 し て み ま し ょ う 。 こ の こと ば は 前 の 
(8-5) で も 出 て きま し た 。 

ファ イル ディ スク リプ タ は , プロ グラ ム や デー タ を 外部 機器 に 出し 入れ する と き に , その 外 
部 機器 (外部 デバ イス ) を 指定 する 文字 定数 で す 。 こ の 文字 定数 に は 次 の よう な も の が あり ま 
Т ( 表 8-1)。 


表 8-1 
Ere N デバ イス モー ド | 使え る 命令 の 例 
SCR в 面 O PRINT# WRITE 
CRT: M” / 
KEY: キー ボー ド | 
LPT: プリ シタ 0 
CAS: カセ ッ ト テ ー プ 1/0 |PRINT# WRITE 
SAVE, LOAD 
DEVI$, DEVO$ 
MEM: グラ フィ ッ ク メ モリ Да; / 
ЕММО: 外部 メモ リ 1/0 Д 
ЕММӘ 


この 表 か ら も わか る よう に , 実際 に プロ グラ ム や デー タ を 出し 入れ する こと が で きる の は , 
"CAS:" , "МЕМ? , ЕММ0:-ЕММ9 СТ, 
SCR: と CRT: は , どちら も 画面 を 示し ます が , 31 以 下 の ア スキ ー コ ユー ド を 持つ 「 コ ント ロー ルコ 
ー ド 」 の 扱い が 異な り ま す 。 た と えば , A$ に 0 か ら 31 ま で の アス キー コー ド の コン トロ ー ル コ 
ー ド が 入っ て いる 場合 , 

OPEN" 0", # 1 "САТ 

PRINT# 1 ,A$ 
と する と , コン トロ ー ル コー ド の 内 容 は 実行 さき れず, コン トロ ー ル コー ド の キャ ラク タ が 表示 
る れ ま す 。 一 度 CLOSE し て か ら , 

ОРЕМ "0" ,# 1, SCRE" 
と し て 同じ こと を 行なう と , コン トロ ー ル コー ド の 内 容 が 実行 され ます 。 実 際 に は 画面 に ファ 
イル を 作る こと は な い の で す が , 擬似 的 に 使っ て , ファ イル の 書か れ た フォ ー マ ッ ト を 見 る こ 
と が で きま す 。 

だ な と えば, 

А$=*“А”:В$="В”С$="С” 
ELG 

ОРЕМ"07,% 1 "СКТ" 
ELT 
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PRINT# 1, A$; B$; C$ 
と する と , 

ABC 
と 表示 る れ ま す 。 これ は , PRINT# 文 の セパ レー タ の 働き に よっ て , 3 つの 文字 変数 が 連続 し て 
書か れ て し まい ます 。 これ が カセ モット テー プ に 書か れ て いる と する と , この ファ イル を 読み 込 
も うと する と き に , 

INPUT# 1, A$, B$, C$ 
と し て も , A$ に "ABC" が 読み 込ま れ て し まい , エラ ー に な る わけ で す 。 


と ころ が , 

WRITE# 1 A$, B$, C$ 
と する と , 

"A" "B" "C" 


と な り , 読み 込み が うま くい きま す 。 

この よう に デバ イス へ の プロ グラ ム や デー タ の 入出 力 は , ファ イル ディ スク リプ タ を 書き か 
える だ け で , どの デバ イス も まっ だ た だく 同じ 感覚 で 使う こと が で きま す 。 

ик, ディ スク BASIC の 場合 , これ 以外 に ディ スク ドラ イブ の 番号 を 示す 0: —3: が 使用 で 
きる よう に な り ま す 。 フ ァイル ディ スク リプ タ は 文字 定数 で すか ら , апу (:) を 付け る の 
を 忘れ な いよ うに し まし ょ 2 う 。 


便 外 部 デバ イス の 初期 化 を 忘れ ず に 


外部 デバ イス に プロ グラ ム や デー タ を 入出 力 す る に は ,INIT 文 で あら か じ め を その デバ イス を 初 
期 状態 に し て お か な けれ ば な り ま せん (イニ シャ ライ ズ )。 通常 INIT を 実行 する L, 「SCR : |, 

「CRT : 」 の イニ シャ ライ ズ が 行なわ れ , [COLOR 7,0 : СОСЕМ : CFLASH : CSIZE : CREV : 
PALET : PRW : WINDOW : CONSOLE : SCREEN 0 0, 0 」 が 実行 され た だ の と 同じ 状態 に な り ま 
す 。INIT 文 の 後に ファ イル ディ スク リプ タ を 付け る こと で , 希望 の デバ イス を イニ シャ ライ ズ で 
きま す 。 な お ,「KEY : 」 と 「LPT у 」 は エラ ー に な り , 何 も 実 行き され ま せん 。 フ ァイル ディ イス 
クリ プ タ を 付け た INIT 文 を ダイ レク ト に 実行 する と , 

Are you sure ? (y or n) 

と いう メッ セー ジ が 表示 され, 確認 や 取る よう に な っ て いま す 。 こ れ は , イニ シャ ライ ズ が 行 
な われ る と , それ まで の 内 容 が すべ て 消去 きれ る た めで す 。 特に , INIT“CAS : と し た 場合 , テ 
ー プ が 巻き 戻る され て か ら 本 体 の 右 に ある 「WRITE」 の ラン プ が つき , テー プ の 内 容 が 消去 され 
る の が わか り ま す 。 こ の メッ セー ジ ど は , プロ グラ ム 中 に INIT 文 を 置い た 場合 に は 表示 され ず に , 
た だ ち に イニ シャ ライ ズ が 実行 きれ て し まい ます の で 注意 し まし ょ 30 


W プ ログ ラム 作成 中 に SAVE し た いと き は …… 


デー タ の 入出 力 の 場合 , OPEN 文 で ファ イル ディ スク リプ タ を 指定 し て デバ イス を 決め ます が , 
SAVE や LOAD の 場合 に 何 も 指 定 し な いと , CAS: 」 を 指定 し た こと に な り ま す 。 ブ ログ ラム 作 
成 中 で , 一 時 的 に アゲ ログラム を SAVE し て お きた い 場 合 , グ ラフ ィ ッ ク メ モ リ を 使う と 便利 で す 。 
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SAVE “МЕМ: 
と し て 指定 し ます 。DEVICE 文 を 使う と SAVE や LOAD を 行なう デバ イス を あら か じ め 決 め て お け ま 
す 。 

DEVICE “МЕМ: 

DEVICE “EMM 1 : 
の よう に し て お く 〈《 と , それ 以後 , ファ イル ディ スク リプ タ を 付け な い SAVE, LOAD は , DEVICE 文 
で 指定 し た デバ イス に 対し て 行なう こと に な り ま す 。 

Ив, グラ フィ ッ ク メ モリ や , 外部 メモ リ に SAVE し た も の に は , VERIFY (LOAD ? ) は 行 な 

х З, Device I/O error に な っ て し まい ます 。 ま た だ, グラ フィ ッ ク メ モリ を 使っ た 場合 , グラ 
フィ ッ ク を クリ ア す る CLSn の 文 を 実行 する と 消去 る きれ ます か ら 注 意 し て 《 だ さい 。 


5-7 カセ ッ ト テ ー プ の 節約 


人 @ 数 字 の 文字 列 変 換 


ファ イル 処理 に よっ て , た くる ん の デー タ を 外部 ファ イル に 記録 で きま す が , 数 値 デ ゲー タ を 
大 量 に 記録 する と き に は 思い の ほか 時 間 が か か る も の で す 。 特 に デー タ の 桁 数 が 多い 場合 は 大 
変 時 間 が か か り ま す 。 こ れ は , ファ イル に 記録 する の に , 数 字 を その まま 書き 込ん で いる た だめ 
で す 。 

パソ コン の 内 部 で は , 数 値 デ ゲー タ は その まま 扱わ れ て いる わけ で は な く , 前 に も 説明 し た と 
ву, パソ コン に と っ て 都合 の よい 2 進数 の 形 で 記憶 きれ て いま す 。 た と えば , 有効 数 字 8 桁 
の 単 精度 の 数 値 は , 40 桁 の 2 進数, つまり 5 つの 16 進 数 に よっ て 記憶 され , 倍 精度 の 数 値 は 7 
つの 16 進 数 , 指定 され た 数 値 に つい て は , 2 つの 16 進 数 で 記憶 きれ て いま す 。 で すか ら 6, どん 
な 桁 数 の 多い 数 値 で も , 単 精度 な ら 65 文字 倍 精度 な 6 7 文字, 整数 化 る され て いれ ば 2 文字 の 
文字 列 に 置き か ん えら れる こと に な り ま す 。 こ の コン ピュ ー タ 内 部 表現 を 使っ て ファ イル に 記憶 
する と , ファ イル へ の 書き 込み スペ ー ス が 短 《 な り ま すか ら , 書き 込む 速度 も 早く な り ま す 。 

画面 - 2 


prea | 


FCA 

0K 

MON 

xD ФЕСА ?FC7 @ 
:9ЕСА=80 4C 88 00 вв 00 01 4F ит ....0 

xR 

ок 


数 値 を 内 部 表現 の 文字 列 に 変換 する の が , 
MKI$( X ) : 整数 値 を 2 文字 の 文字 列 に 
MKS$( X ) : 単数 度 値 を 5 文字 の 文字 列 に 
MKD$( X ) : 倍 精度 値 を 7 文字 の 文字 列 に 
と いう 関数 で す 。 試 し て み ま し ょ う ( 画 面 8 - 1①)。 5 文字 に な る と ころ が 3 文字 し か 表示 され 
ませ ん 。 

この 理由 を 調べ さる た め に , 実際 に 変数 A の 値 が 記録 され て いる 様子 見 て み ま し ょ う 。 ま ず 
変数 A の 値 が 入っ て いる アド レス を 調べ ます 。 そ の た め の 関 数 が , VARPTR (А) で す 。 こ うす 
る と , 変数 A の 記憶 され て いる アド レス が 求め られ ます か ら 6, これ を HEX$ に よっ て 16 進 数 に 直 
し ます (画面 8 - 2 ②)。 を し て , モニ タ の D コ マン ド (MON) を 使っ て , この アド レス か ら 68 
バイ ト を 表示 し て み ま し た (モニ タ の コマ ンド に つい て は (9-1) 参照 )。 す る と , BUDD 
3 文字 は MKS$ に よっ て 表示 きる れ た も の と 一 致し , 残り 2 文字 は 00 な の で 表示 され な か っ だ こと 
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が わか り ま し た (画面 8 - 2③)。BASIC に 戻っ て か ら 「LEN (MKS$ (A))」 と し て みる と , 5 
が 表示 る れる こと か ら も 確か め ら れ ま す 。 

る さらに, A の 値 を も っ と 大 き な 値 や , 桁 数 の 多い 小数 に し て いて も , この 関数 で 求め られ る 
文字 列 の 長 さ る は 常に 5 文字 びあ る こと が 確か め ら れ ま す 。 


人 何と 速度 が 倍 ノ 


それ で は , 実際 に ファ イル へ の 記録 が どの くら い は や く な る か を 試し て み ま し ょ う 。 サ ンプ 
ル デ ー タ と し て は 乱数 を 使い , 1000 個 の 数 値 デ ゲー タ と し て カセ ッ ト テ ー プ に 書き 込ん で み ま す 。 
数 値 を を その まま 書き 込む の が 【〔 プ ログ ラム 8-10〕 で す 。 

[プロ グラ ム 8-10) 


10 INITiMIDTH49:CLS 
20 RANDOMI ZE 18 

30 ОРЕМ"О", #1, "CAS: 
40 FOR Ісі TO 1000 

50 PRINT #1, КМО (1) 

60 NEXT 

70 CLOSE 

80 END 


実際 に テー プ を 入れ , テー プ カ ウ ンタ を 000 に 
し て この プロ グラ ム を 動か し て みる と , カウ ン 
タ の 値 が 41 く らい で 終わ り ま す 。 

〔 プ ログ ラム 8 -11] 


19 INITiMIDTH49iCLS 

20 RANDOMI ZE 1 @ 

30 ОРЕМ"О", #1, "CAS: 

40 FOR I=1 TO 1000 

50 PRINT #1, МК% (КМО (1)); 
68 NEXT 

70 CLOSE 

80 END 


〔 プ ログ ラム 8-11) で は , MKS$ に よっ て デー タ を 内 部 表現 の 5 文字 に 変換 し て か ら 書 き 込 
ん で いま す 。 こ の 場合 , 同じ よう に し て 調べ て みる と , カウ ンタ の 値 は 19 く らい で 終わ り ま す 
Db, 約 2 分 の 1 の 時 間 で 済ん どこ と に な り , か な り の 短縮 に な り ま す 。 

な お , 20 行 の 「RANDOMIZE」 は どちら の プロ グラ ム も 同じ 乱数 を 発生 きせ る た め の も の で す 。 
オペ ラン ド を 省略 する と 毎回 違っ た 乱数 が , 数 値 や 式 を つけ る の と 同じ 順序 の 乱数 を 発生 きせ 
る こと が で きま す 。 


@ も と の 数 値 に も どす に は 


この 方 法 で 作っ た ファ イル か ら 読 み 出さ れる の は , 内 部 表現 に 変換 きれ た 文字 列 で すか ら , 
今度 は これ を も と の 数 値 に 変換 し 直る な けれ ば な り ま せん 。MKI$, MKS$, MK0$ に 対応 する これ 
ら の 関数 は , 次 の よう に な っ て いま す 。 

A$=MKI (A) —>A=CVI (А) 

A$=MKS (A) —°A=CVS (A$) 
A$=MKD (A) ——A=CVD (A$) 
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8 X1 機 能 の いろ いろ 


これ を 使っ た 読み 出し の 例 が 〔 プ ログ ラム 8-12) СТ. 
[プロ グラ ム 8-12) 


10 INITiMIDTH49:CLS 
20 OPEN"I",#1, "CAS: 
за FOR I=1 TO 1988 
40 A$=INPUT$ (5, #1) 
5а PRINTCVS (A$) : NEXT 
る 9 CLOSE 


これ は , 【 プ ログ ラム 8-11) で 作っ た ファ イル を 読む も の で す 。〔 プ ログ ラム 8-11) は , 50 
行 の も ミコ ロン に よっ て , テー プ 上 に は 連続 し た 文字 列 で 書き 込ま れ て いま す 。〔 プ ログ ラム 8 
-12] で は , この 連続 し た 文字 列 を , 40 行 の INPUT$ を 使っ て 5 文字 ずつ 区 切っ て 読み 込み , 50 行 
で CVS を 使っ て 数 値 に 直し て いま す 。 

ファ イル 処理 は , 使う 人 に と っ て た だ 終る の を 待っ て いる だ け の 作業 で すか ら 6, この よう な 
方 法 を 使っ て 少し で も 短縮 する こと で , 能率 の よい デー タ 処 理 が で きる よう に な り ま す 。 ビ ジ 
ネス 用 の プロ グラ ム に は ぜひ 活用 し て みて くだ さい 。 


めん だ お むめも る や 


グラフィック RAM の も う 1 つ 便 利 お 顔 

プロ ブラム を 作成 中 に 他 の プロ ブラム を 参考 に し よう と する と き , 便利 な 記法 を 紹介 し まし 
よう 。 だ た だ し これ は X 1 の オプ ショ ン の ブラ フィ ッ ク RAM (CZ- 8 СК) が 組み 込ま れ て い 
な いと 使え ませ ん 。X 1 で は , プラ フィ ッ グ ク RAM を 2 つの 用 途 に 使う こと が で きま す 。 1 つ 
は 文字 どおり 点 を 打つ だ たり, 線 を 引い だ り し て 画面 を つぐ る プラ フィ ツク メモ リ と し て の 使い 
万 で す 。 も う 1 つ は , プロ プラ ム や デー タ を 記録 する 外部 メモ リ と し て 使う 万 法 で す 。 
仮り に AA と いう プロ プラ ム を 作 つ て いる 途中 で , と いう プロ プラ ム の 内 容 を 参考 に する と 
し まし よう 。 プ リン タダ を 持つ て いる 万 は B の リス ト を 打ち 出し て お いて 見 れ ば よい の で す が , 
そう で な い 場 合 , A を 一 度 テ ー プ に 記録 し て お いて ガ ら 次 に ロビ を LOAD し , B の 内 容 を リス 
ト を 見 て 確認 し た 後 , また A を LO 〇 AD する と いう 少々 手間 の が か る 作業 を し な けれ ば な り ま 
せん 。 ご の よう な と き , ブラ フィ ッ ク RAM を 外部 メモ リ と し て 使う と , 手間 も が がら ず , し 
が も は や ぐ 同 じ 作 業 を 行なう こと が で きま す 。 

プラ フィ ッ ク RAM を カセ ツ ト テ ー プ こと 同じ よう に 使っ て , プロ ブラム A を SAVE し て し 
まう の で す 。 こ うし て お いて こん ど は カセ ツ ト テ ー プ が ガ ら プロ プラ ム B を LOAD し て リス ト 
を 見 だ 後 , また ブラ フィ ッ フ RAM ガ お ら A を LOAD し て し まう の で す 。 プラ フィ ッ ク RAM 
へ の LOAD, SAVE は 大 変 高 束 で す ガ ら , これ は 非常 に 便利 な 使い 万 で す 。 

だ た だし, ここ で 注意 し な けれ ば いけ な いこ と は , この 操作 は 画面 が 横 40 文 字 の モー ド に な つっ 
て いな いと 使え な いこ と で す 。 

ве, プロ プラ ム B に ブラ フィ ッ ク を 使 つ だ 部 分 が ある と , この プロ ブラ ム を RUM さ せ だ 
と き に プラ フィ ッ フ RAM に SAVE さ れ て いる プロ プラ ム A が 消さ れ て し まう こと が ある と 
いう 点 で す 。 で す ガ ら , プロ ブラム B の 内 容 を 参照 する だ け で あれ ば , リス ト を 見 る だ け に と 
ど め て お きま し よう 。 ま た だ, この 技法 は X 1 な ら で は の , いわ ば 秘技 で , プロ プラ ム や デー タイ 
の 一 時 的 記録 に は 大 変 便利 で す ガ ら う まぐ 使い こなし て ぐだ さい 。 
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S-17 機械 語 の は な し 


ここ まで , X1 の BASIC に つい て 説明 を 進め て きま し だ た 。 を その 中 で , コン ピュ ー タ は , 0 と 
1 の 信号 の 組み 合わ せ で 動作 し て いる と いう こと に も 何 度 か ふれ て きま し た 。 

この 機械 語 は , コン ピュ ー タ 言語 と いう より も , 機械 を 動か す た め の コー ド の よう な も の て 
私 た ち 人 間 に と っ て は 大 変 難解 な も の で す 。 実際. コン ピュ ー タ が この 世に 誕生 し た ば か り の 
ころ は , この 機械 語 に よっ て プロ グラ ミン グ し て いま し だ た ので, 1 つの プロ グラ ム を 完成 させ 
る の に 英 大 な 労力 と 時 間 が 必要 で し た 。 を その た め に まず 考え られ だ た の が , 機械 語 の 動作 を ある 
程度 人 間 が 理解 で きる よう に 表現 する アセ ンプ ブリ 言語 で びす 。 ア セン ブリ 言語 で プロ グラ ミン グ 
され だ も の は , アセ ンプ ラ と いう プロ グラ ム の 働き に よっ て 機械 語 に 直す こと が で きま す 。 し 
か し , アセ ング ブリ 言語 も , 機械 語 の 命令 に 1 対 1 で 対応 す (019-1) 

る よう 作ら れ て いる だ め , 大 き な プ ログ ラム を 作ろ うと す 
る 場合 に は や は り , 多く の 労力 と 時 間 が 必要 で し た 。 また, 
ュ ン ピュ ー タ の 中 枢 で ある CPU (中 央 演算 処理 装置 ) が 異 
な れ ば それ を 動か す た め の 機械 語 が 異な る た だ ため, アセ ンプ 

у 言語 も CPU ご と に 違っ た も の が 必要 で し た 。 

コン ピュ ー タ を さる さら に 使い や す 〈, 理解 し や すい よう に 
する た め に 考え ん られ た の が 「BASIC」 を は じ め と する 高級 
言語 と 呼ば れる も の で す 。 こ れ ら の 高級 言語 の 発達 に よっ 
T, バツ コン も 広 〈 普 及 し て きた わけ で す 。 

これ ら の 言語 を 仲介 と し た CPU と 人 間 と の 関わ り 合 い を 表わし た の が , 図 9 - 1 の 「 言 語 の 輸 」 
で す 。 こ の 図 で も わか る よう に , 人 間 に と っ て 最も 理解 し や すい の が BASIC な どの 高級 言語 , 
CPU に と っ て 理解 し や すい の が 機械 語 や アモ ンプ リ 言語 た と いう こと に な り ま す 。 


人 @ 機 械 語 の 長所 と 短所 


私 た ち が , コン ピュ ー タ に 何 か 仕事 を る せる と き に も , BASIC を 使え 々 ば ほとん どの こと が で 
きま す 。 

実は この BASIC も , 機械 語 プ ログ ラム の 集まり で で き て お り , 入力 され た 命令 に つい て 必要 
な 機械 語 サ プル ー チ ン を 次 々 と 呼び 出す こと で 働い て いま す 。 BASIC の 命令 を 機械 語 に 翻訳 す 
る と いう の は , この 作業 の こと な の で す 。BASIC は , 翻訳 作業 の 手間 が ある た め に , 実行 速度 
に 限り が あり , プロ グラ ム の 内 容 に よっ て は 大 変 遅い と 感じ られ る こと も あり ます 。 

これ に 対し て , 機械 語 は CPU を 直接 動か の す も の で すか ら , 実行 速度 に 関し て は 比較 に な ら な 
い 高速 性 を 得る こと が で きま す 。 ま た , プロ グラ ム 全 体 が 機械 語 で 作ら れ て いる も の な 6,BASIC 
自体 が 不要 に な り ま すか ら , コン ピュ ー タ の メモ リ も フル に 使う こと が で きま す 。 こ の よう に 
書く と 良い こと ずく め の よ う で す が , 前 に も 書い た よう に , 人 間 に と っ て 大 変 理解 し に くい と 
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いう 短所 も あり ます 。 ま た , BASIC で は 1 つの 命令 で 済む よう な 処理 で も , 機械 語 で は 何 ステ 
ッ プ も の プロ グラ ム を 組ま な けれ ば な ら な い 場 合 が 多く , 一 度 作 っ て し まっ た 機械 語 の プロ グ 
ラム は 後 か ら 簡単 に 修正 する こと が で き な い , と いう 大 き な 短 所 が ある の で す 。 


⑧ 機械 語 と は どん な も の か 


この よう な 長所 と 短所 を 考え る と, パソ コン の ブログ ラム で 機械 語 を 使う の は , 特に 速度 を 
重要 視 す る 場合 と 考え を て よい で し ょ う 。X 1 に 使わ れ て いる Z80A と いう CPU は , 158 種 の 機械 
の 命令 を 持っ て いま す 。 これら の 命令 に つい て は 1 つ 1 ぞ つ 説 明 し て いる と それ だ け で 1 ВО 
Ио ИНЕ ааай ERS 
を 参照 し て いた だ く 《 こ と に し て , ここ で は 機械 語 が どの よう な も の か を 見 る どけ に と と ど とめ まし 
kL 5, 非常 に よく 似 た 内 容 の 命令 を BASIC, アモ ンプ ブリ 言語 , 機械 語 で 書き 表わし て みな が ら , 
それ ぞ れ の 違い を 見 て に く こ と に し ます 。 

た と えば , BASIC で 「A= 1」 と する こと を 考え て み ま し ょ 2。 機械 語 で は , A の よう な 変 
数 は あり ませ ん か ら , メモ リ に 数 値 を 書き 込む こと に な り ま す 。 こ の メモ リ の 番地 を F008H(H 
は 16 進 数 を 表わす ) 書き 込む デー タ を 2EH と する と , アモ ンプ ブリ 言 語 で は , 

LD A, 2EH 

LD (F008), А 
と 書き 表 わ る れ ま す 。A と いう の は , CPU が 持っ て いる レジ スタ の 1 つ で , 主 に 計算 の 結果 を 
保持 する 働き を 持っ て いま す 。 レ ジス タ に は この 他 に , F, B, С, D, E, Н, L の 他 , 22 
個 の も の が あり ます 。 ここ で 行なっ て いる こと は , この A レ ジス タ に 2EH と いう デー タ を 入れ , 
次 に FOO08H と いう 番地 (アド レス ) の メモ リ に , 
この A レジ スタ の 値 を 書き 込む , と いう も の で 
す 。 こ の 作業 を 機械 語 で 表現 する と , 次 の よう 


に な り ま す 。 
LD A, 2EH ЗЕ ZE 
LD(F008H), А :32 08 РО 


この よう に , 機械 語 の 命令 は それ ぞ れ が と て 


も 単純 な 作業 を 行なう た め , まとまっ た 処理 を «С _ ' 
行なわ せよ うと , いく つも の 命令 を 組み 合わ せ I 
て いか な く て は な ら な いた め , プロ グラ ム の 量 Ж 
が 多く な る わけ で す 。 また, ВАЗКъщот, ИХ? ç © 
行 番号 や ラベ ル は な く , 直接 アド レス で 指定 する こと に な り ま す 。 

機械 語 を 使う うえ で 特に 注意 し な く て は いけ な い の は , 機械 語 の 命令 が , 1 つま た は 2 つの 
16 進 数 の 組み 合わ せ で で き て いる と いう 点 で す 。 で すか ら , も し, 1 文字 で も 打ち 間違え る と , 
その 命令 は まっ た だく 別 の 命令 を 表わす こと に な っ て し まい ます 。BASIC で は , エラ ー メ ッ セ ー 
ジ で 警告 し て て れ ま す が , 機械 語 で は この よう な 機能 は な く , そこ に 書か れ て いる と ちり の 内 
容 を 実行 し て し まい ます 。 

た と えば 先ほど の 例 で , 32 88 FO と 打ち 込む べき と ころ を , C3 08 FO と 打っ て し まっ た と す 


ЕВ 111110911 ーー 


る と , これ は , F008 番 地 ヘ へ ジャ ンプ せよ , と いう 機械 語 を 意味 する こと に な り , ほとん どの 場 
合コン ピュ ー タ は , コン トロ ー ル 不能 の 状態 ( 最 走 状態 ) に な っ て し まい ます 。X 1 СВ, BASIC 
や モニ タプ ログ ラム 自身 も , 書き か え の で きる RAM に 書き 込ま れ て いま すか ら , 最悪 の 場合 こ 
れ ら の プロ グラ ム が 破壊 きれ る こと が あり ます 。 こ うな っ た だ ら , 一 度 電源 を 切っ て や り 直 すし 
か あり ませ ん 。 も ちろ ん 打ち 込ん で あっ た プロ グラ ム や デー タ も すべ て 消え て し まい ます 。 

⑧ 機械 語 を 使う に は 

機械 語 は , 今 ま で に 説明 し た よう な 短所 を 持っ て いる か わり , その 速度 に は 目 を 見 張る も の 
が あり ます 。 こ こ で は 実際 に 機械 語 を 扱う た め の 方法 を 説明 し まし ょ う 。 

X 1 の BASIC に は 機械 語 の プロ グラ ム を 作っ た り , 実行 し た りす る だ め の 機 械 語 モ ニタ が 内 
蔵 き れ て いま す 。 モ ニタ に コン トロ ー ル を 移す に は , BASIC の コマ ンド レベ ル か ら 

MON 47 

と し ます 。 す る と 画面 上 に は , ж (アス タリ スク ) に 続い て カー ソ ツル が 表 わ れ , コン トロ ー ル 
が モニ タ に 移っ た こと を 示し ます 。 こ の モニ タ か ら 使 える コマ ンド を , 先ほど の 例 を 使っ て 説 
明 し まし よう 。 


*M (メモ リセ ッ ト ) 
メモ リ の 内 容 を 書き か える , つま り メ モリ へ の 書き 込み を 行ない ます 。*M に 続い て , 書き 
込み を は じ め た だ たい アド レス を 16 進 4 桁 で 入れ ます 。 先 ほど の プロ グラ ム を F000H か ら 6 書き込ん 
で みみ まし よう 。 
*M F000 42 
: F000= [0]0 
と 表示 され ま すか ら , 3E と 書き か えま す 。 キー を 押す と 次 の アド レス と デー タ が 表示 る れ ま 
すか ら , 同じ よう に 書き 込み ます 。 こ れ を , 次 の よう に し て 書き 込む こと も で きま す 。 
ЖМ F000 41 
: Ғ000-< ЗЕ 2E ш 
: Ғ002- [0] 0 
一 般 に は , 
| : アド レス = デー ター デー ター デー ダー・…… (は 1 文字 文 の スペ ー ス ) 
の 形式 で , 16 バ イト 分 一 度 に 書き 込む こと が で き , それ 以降 は 無視 る され ま す (1 バイ ト と いう 
の は , 2 桁 の 16 進 数 に あたり ます )。 書 き 込 み を 続け まし ょ う 。 
: F002=32 08 РО C9 
C9 は , BASIC の RETURN に あたる 機械 語 で , この 機械 語 プ ログ ラム が 呼び 出さ れ た と ころ に 戻 
り ま す 。 C9 ま で 書き 込ん だ 6, [SHIFT ] 十 [BREAK] で モニ タ の コマ ンド レベ ル に 戻り ます 。 機械 
語 プ ログ ラム の 打ち 込み は 、 こ の よう に 一 見 無 意 味 な 数 字 の 連続 で すか ら , 間違い の な いよ 3, 
注意 する 必要 が あり ます 。 


жо (ダン プ ) 
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BASIC で 言え ば LIST に 相当 する も の で , メモ リ の 内 容 を 表示 し ます 。 今 書 き 込 ん だ 部 分 を ダ 
ンプ し , 間違い が な いか 確認 し て み ま し ょ う 。 
*D F000 F007 H 


:Еййй- ЗЕ 2Е 22 ӘЗ FA C? 90 00 /2.2.Ш/.. 
と 表示 る れ ま す 。F000 は ダン プ を 開始 する アド レス , F007 は 終了 アド レス で す 。 終了 アド レス 
を 省略 する と, 開始 アド レス か ら 128 バ イト (16 行 ) ダン プ し ます 。“ ノ "(スラ ッシュ ) か ら 後 
の 8 文字 は , メモ リ の 内 容 を アス キー コー ド と し た 文字 で す 。 ТЕН (31) 以下 の ュ ユン トロ ー ル 
コー ド に つい て は , “.” (ピリオド) が 表示 る れ ま す 。 


*P (プリ ンタ スイ ッ チ ) 

P コ マン ド と 後 か ら 6 説明 する F コ マン ド の 出力 を 画面 と プリ ンタ どちら に する か を 切り か え ぇ 
ます 。BASIC か ら 5MON コ マン ド で モニ タ に 入っ た と き は , 出力 が 画面 し な り ま す 。 を その後 P ュ 
マン ド を 実行 する と プリ ンタ に 切り か わり , も う 一 度 P コ マン ド を 実行 する と 再び 画面 に な り 
#37. Ци, 実行 する た びに , 交互 に 切り か わり ます 。 


жо (ゴー サブ ) 

*G に 続い て , 16 進 4 桁 り アド レス を 付け る と , その アド レス か ら の 機械 語 サ プ グルー チン を 
呼び 出し ます 。 こ の プロ グラ ム を 実行 する に は , 

xG F000 œ 

と し ます 。 す で に , コマ ンド 待ち に 戻れ ば 完了 で す 。 も し , な か な か 戻ら な いと き は , 打ち 込 
み の あ や まり が 考え られ ます か ら , す で に 本 体 後ろ の の リセ モッ トス イッ チ を 押し て くだ さい 。BASIC 
の コマ ンド 待ち に 戻っ だら 6, も う 一 度 モ ニタ に 移り , D コ マン ド で 間違い が な いか 確 め て くだ 
る い 。 な お ,D コ マン ド で 表示 る れ て いる 内 容 を BASIC の スク リー ン エ ディ ッ ト と 同じ よう に 
カー ソル を 動か し て 修正 する こと も で きま す 。 

うま く 動 いた 場合 は , D コ マン ド で F008 番 地 の 内 容 を 調べ る L, 2E に な っ て いる は ず で す 
(49-2). 


(49-2) 


*T (トラ ンス ファ ) 

ある アド レス の 内 容 を 他 の アド レス に 移動 きせ ます 。 一 般 的 な 書き 方 は , 
[жт アド レス 1 アド レス 2 УКАЗ | 

と し , ア ドレ ス 1 か ら ア ドレ ス 2 まで の 内 容 を アド レス 3 を 先頭 し する アド レス に 転送 し ます 。 
この プロ グラ ム を , F800H へ 転送 し て み ま し ょ う 。 
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ЖТ F000 F005 F800 
実行 前 と 実行 後 の F800H か ら の 内 容 を 見 て る と, 次 の よう に な っ て いま す ( 図 9-3)。 
(29-3) 


:ваввзай ва Aa ва ва ва AO ва х 


:Ғ800=2Е ЗЕ 32 98 га C? 00 00 /. >2. #/.. 実行 後 


ここ で て で 気 を 付け な けれ ば いけ な い の は , BASIC の RENUMBER Е Жо, ジャ ング 先 や デー タ を 
セッ ト す る アド レス は も と の まま と いう こと で す 。 図 9 - 3 を 見 る と A レ ジス タ の 内 容 を 書き 込 
む ア ドレ ス を 表わす , 4 , 5 バイ ト 目 が , 08 FO の まま に な っ て いま す 。 こ の 場合 な ら , НЕСІН 
題 は 生じ ませ ん が , これ が ジャ ンプ アド レス だ っ た 場合 に は , 大 変 な こと に な り ま す 。 つ まり, 
エコ ュ マ ンド を 実行 し て も , も と の アド レス の 内 容 は 変化 せ ず に 残っ て いる か ら で す 。 


ж5 (+-7) 

BASIC の SAVE と 同じ で す が , モー ブ す る アド レス を 指定 する 必要 が あり ます の で , 次 の よう 
に 書き ます 。 
Ë セー プ ブ 開 始 ア ドレ ス セー ブ 終 了 ア ド 


レス 実行 開始 アド レス : ファ イル ネー ム 

セー ブ プ 開 始 ア ドレ ス , 終了 アド レス は , この プロ グラ ム の 場合 , F000, FO005 に な り ま す 。 Ж 
行 開始 アド レス を F000 と すれ ば , この プロ グラ ム を ロー ド し た と き に , 自動 的 に 実行 きれ ます 。 
自動 的 に 実行 し た く な いと き は 1003H を 指定 すれ ば , モ ニタ の コマ ンド レベ ル に 入り ます 。 ま た , 
14C 2 に し て ぉ く と BASIC の コマ ンド 待ち に ジャ ンプ し ます か ら , BASIC か 6 ら 機械 語 ブ ログ 
ラム を サブ ルー チン と し て 使う よう な と き に , BASIC プ ログ ラム 中 で LOADM 文 を 使う こと が で 
きま す 。 


*V (ヴェ リフ ァ イ ) 

BASIC の LOAD?, VERIFY と 同じ で ,「“:"」( コ ロン ) に 続け て ファ イル ネー ム を 指定 で きま 
す 。 正 し てく セーブ プ き され て いれ ば モニ タ の ユマ ンド 待ち に , 正しく な けれ ば 「ERR?」 と 表示 し て 
止ま り ま す 。 

ディ スク を 使っ て に な い 場 合 , S, し 上 ,V コ マン ド の デバ イス は カセ ッ ト テ ー プ に な り ま す 。 
これ は , BASIC の DEVICE 文 で 他 の デバ イス を 指定 し て あっ て も 変わ り ま せん 。 


жі (ロー ド ) 

BASIC の LOAD 文 と 同じ で す が , ロー ド 先 頭 ア ドレ ス を 指定 する こと が で きま す 。 指 定 し な い 
場合 , S コマ ンド で 指定 し た と お なり の アド レス を ロー ド し ます 。 フ ァイル ネー ム の 扱い 方 は BASIC 
の LOAD 文 と 同じ で す 。 使い方 は 次 の よう に な り ま す 。 
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жі アド レス : ファ イル ネー ム 


жі アド レス 

жі : ファ イル ネー ム 

S コマンド, L コ マン ド を [ SHIFT | + | BREAK | キー で 止め た り , L コマ ンド で 読み 込み エラ ー 
が 出る と 「ERR?」 と 表示 きれ ます 。 


*F (ファ イン ド ) 
SEARCH 命 令 に 相当 する も の で す 。 る が す の は , 16 進 数 2 桁 の デー タ の 並び で , 

KF 開始 アド レス 終了 アド レス デー タ 

デー タ 

と し ます 。 例 と し て , BASIC の 「NEXT」 を る が し て み ま し ょ う 。 この は 4 文字 の アス キー コー ド 
は 16 進 数 で , 4E 45 58 54 で すか ら , 

жЕ 0000 AFFF 4E 45 58 54 8 

と し ます 。 す る と, 画面 9 - 1 の よう に , 736BH (H は 16 進 数 を 表わす 記号 ) と 7574H の 2 つの 
アド レス か ら こ の デー タ の 並び が ある こと が わか り ま す 。 試し に , 736BH か ら D コ マン ド で ダダ 
ンプ し て みる と, BASIC の エラ ー メ ッ セ ー ジ が 入っ て いる こと が わか り ま す (画面 9- 2 )。 ダ 


[画面 9- 1 〕 [画面 9- 2) 


:17363=4= s< <: 7 é? 74 /“ЕХТ wit 
:7373:68 - 5 52 Znout FOR 
:7378=90 79 5Е 74 5) 78 20 プ 。S ッ ntax 
:7368+<Е 45 58 54 ¿NEXT :7383-45 2 65 7: 2 45 /егтог.8Е 
:7574-4Е 45 58 54 ¿NEXT {36855 55: 32: ЧЕ т ел TA «тов WTE 
:7393-68 5 74 47 53 /-оч% 608 
:7393=55 74 65 /28.0чи% о 
:?заз3+54 1 74 61 #8 49 /+ сваќа. І 
:?заз<5с 5 і 66 /11еда! + 


:7332=75 る = 5 - S£ 20 /unction 
27388-63 61 5 2 5 55 Иса! 1.Оуе 
: 7? зсз+72 5С в: 7 Bê 75 иге ow 0u 
Ф7ЗСЗ=74 5 22 62 65 45 /% 
27323-65 72 79 па 5 さこ c 55 7 
:7308:64 5 

:7ЗЕЗ-е2 


ンプ し た とき の 右側 の 8 文字 の 部 分 で は , この よう に メッ セー ジ な ど を 直接 文字 で 見 る こと が 
で きま す 。 こ の よう な メッ セー ジ を メモ リ に 書き 込む と き に は 。M コ マン ド で 次 の よう に する 
こと が で きま す 。 

*M Е000 

Ғ000- ;A IB i0 (ご は ス ペー ス を あけ る ) 
16 進 デー タ の か わり に , セミ コロ ン に 続い て 直接 文字 を 書き ます 。 ダ ンプ し て みる と , 

*D F000 F007 

Ғ000-41 42 43~/ABC~ 
ほな っ て お り , 16 進 デー タ に 変換 きれ て 書き 込ま れ て いま す 。 


*R (リタ ー ン ) 
モニ タ を 呼び 出し た シス テム プロ グラ ム へ 戻り ます 。BASIC か ら MON で モニ タ に 移っ た と き 
Ер 1141343141 -2554-- 


は , R コ マン ド で BASIC の コマ ンド レベ ル に 戻り ます 。 特に 操作 し な い 限 り , BASIC の 変数 や 
プロ グラ ム は 保存 きれ て いま す 。 


@BASIC の 機械 語 に 関す る 命令 


モニ タ の コマ ンド だ け で な く 〈, BASIC に も 機械 語 に 関す る 命令 が あり ます 。 こ れ ら に つい て 
説明 し まし ょ う 。 с 


РЕЕК, РОКЕ 

これ ら に つい て は ,「 電 子 オ ル ガ ン 」 の と ころ で 使い まし た が , POKE は メモ リ に デー タ を 書 
き 込 む 命令 PEEK は 読み 出す 命令 で す 。 ア ドレ ス , デー タ と も , 10 進 数 16 進 数 両方 使う こ 
が で き , 16 進 数 の 場合 は 「&H」 を 付け ます 。 


SAVEM 

モニ タ で 作っ た 機械 語 サ ブルー チン を BASIC か ら 6SAVE す る と き に 使い ます 。 この 場合 , ファ 
イル ディ スク リプ タ を 付け る こと に よっ て , デバ イス を 指定 で きま す 。 書式 は , 

SAVEM "ファ イル ディ スク リプ タ : ファ イル ネー ム ", 

先頭 アド レス , 終了 アド レス , 実行 開始 アド レス 

と し ます 。 実行 開始 アド レス に つい て は , モニ タ の S コマ ンド を 参照 し て くだ さい 。 


LOADM 
BASIC か ら 6 機械 語 サ プ ブルー チン や 機械 語 デ ゲー タ を ロー ド し ます 。 


LOADM " ファ イル ディ スク リプ タ 
: ファ イル ネー ム ” , 先頭 アド レス , R 


と し , 先頭 アド レス は 省略 で き , 省略 する と SAVEM で 指定 し た アド レス か ら ロ ー ド し ます 。 ま 
с, Г, R」 を 付け て むく と, ロー ド 終 了 後 SAVEM で 指定 し た 実行 開始 アド レス か ら 自 動 的 に 実 
行 を 開始 し ます 。 


PEEK@, POKE@ 

通常 の PEEK, POKE は , メイ ン メ モリ を 対象 と し て いま す が , @( ア ッ ト マ ー ク ) を 付け る と, 
У-КАМ (ビデ オォ RAM) に 対し て 作用 し ます 。V-RAM の アド レス は , テキ スト が 2000H か ら 
37FFH, グラ フィ ッ ク 1 ( 青 ), 2 (FR), 3 ( 緑 ) が それ ぞ れ 4000Hー 7 ЕЕН, 8000Н ~ ВЕЕЕН, 
C000H-FFEFFH と な っ て いま す 。 PEEK@, POKE@ で V-RAM 以 外 の アド レス を 指定 する と 
エラ ー に な り ま す 。 


CALL (アド レス ) 
BASIC か ら 6 機械 語 す サブ プルー チン を 呼び 出し ます 。 呼び 出す サブ ルー チン の 先頭 アド レス を 指 
定 し ます 。 機械 語 サ プル ー チ ン の 最後 に は RET (C9) が な けれ ば な り ま せん 。 


OUT, INP 
— 56 — тарявайая тва 
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コン ピュ ー タ か ら デ バイ ス に デー タ を 送り 出し た り , デー タ を 受け 取る 出入 口 と な る も の を 
ポー ト と 呼び ます 。 こ の ポー ト と デー タ の や り と り を 行なう の が INP,、0UT で す 。 ポ ー ト の アド 
レス は , 0000H か ら FFFFH ま で あり ます が , X 1 で は , 2000H か ら FFFFH が , V-RAM に つ な 
が っ て いま す 。 た と えば , OUT &H4000, &HFF を 実行 する L, 4000H は グラ フィ ッ ク V-RAM 
青 の 先 頭 ア ドレ ス で すか ら , 画面 の 左上 すみ に 表 い 線 が 描か われ ます 。 また, この 位置 に 「A」 
を 書い て お いて , PRINT INP (&H3000) を 実行 する と , A の アス キー ユー ド で ある 65 が 表示 る 
れ ま す 。0000H か ら 1FFFH は , 各 デ バイ ス の コン トロ ー ル に 使わ れ て いま すか ら , ぜ やみ に OUT 
命令 を 実行 し な いで 《 だ さい 。 


DEFUSR, USR 

BASIC» ら 6 機械 語 サ ブ グルー チン を 呼び 出す に は , CALL 命 令 を 使い まし た が , USR を 使う と デ 
ー タ の 受け 渡し が で きま す 。 USR 命 令 を 使う に は , まず DEFUSR 命 令 に よっ て 機械 語 サ プル ー チ 
ン の アド レス を 定義 し て お か な 《 く て は いけ ませ ん 。 

DEFUSR 〔n ) ニ アド レス 
tU, nn は 0 か ら 59 ま で 使え ます か ら , 合計 10 個 の 機械 語 サ プ ブルー チン を 使う こと が で きま す 。 
アド レス は , その サブ ルー チン の 先頭 アド レス を 指定 し ます 。 た と えば , F000H か ら あ る 数 を 
1000 回 足し 算 す る プロ グラ ム を 書い て なき,DEFUSR0=&HF000 と し て 指定 し て お いた と し ます 。 
この と き に AUSRO0(B ) と する と , B を 1000 回 足し 算 し た 結果 が 機械 語 サ ゲ プルー チン の 中 で 計 
шай, A に 代入 きる れ ま す 。 また, 文字 に 関す る サブ ルー チン を 作っ た 場合 は , A&=USR0(B 
$) の よう な 使い 方 も びき ます 。 つ まり , USR 命 令 は , 1 つの 関数 と 考え る こと が で きる わけ で 
す 。 

これ ら の 命令 に つい て は , 次 の 実用 機械 語 サ プル ー チ ン の と ころ で 使っ て いま すか ら , 参考 
に し て くだ さい ゆい 。 


め め だが めも "ーーーーーーーー ニ ーーーー ニ ーー ニー 


RESET 

プロ ブラ ム は 走 つ て いる は ず な の に , X 1 は うん と も すん と も いわ な いし キー 入力 も まつ だ 
ぐ 受 け 付 け て くれ な い 一 一 そん な 状態 を 経験 され だ た 人 は いま せん か や この よう な 状態 を 「 暴 
走 . と いい ます 。 機械 語 で 書い た プロ ブラ ム を 実行 する と き な ど し ば し ば 起こ り ま す 。 も ちろ 
ん プロ グラ ム が 完 生 で な いた だ めこ うい うつ 事態 を 招く わ け で す が , お ガ と いつ て この まま 電源 を 切 
つて し まつ て は , せつ が ぐ 作 つ だ プロ ブラ ム が 全部 消え て し まい ます 。 な ん と が 「 暴走 」 がら 
の が れ て プロ ブラ ム の 修正 を 行ない た いも の で す 。 

プロ プラム が 暴走 し て し まつ だ と き は , あわ て ず さ わ が ざ , 本 体 の 後ろ に を 伸ばし RESET 
スイ ツチ を 押し て ぐだ さい 。 本体 の 後ろ が ら 見 る と 右側 こ あ る 黒い スイ ツチ で す 。 プロ ブラ ム 
を 消す こと な ぐ 実 行 前 の 状態 に 戻す こと が で きま す 。 

ここ で プロ ブラ ム の デバ ッ ツブ を する わけ で す が , 一 度 暴走 な きせ て し まう と メモ リ の 内 容 Се 
に BASIC イ ンタ プリ タ ) が こわ れ て , 以後 の 実行 が で きなこ な る 場合 も あり ます 。 プロ ブラ ム 
が で きだ た だら, 走ら せる 前 に SAVE し て お ぐ こ と ガ が 大切 で す 。 
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Ве 機械 語 の サブ ルー チン を 
作っ て みよ う 
@ グ ラフ ィ ッ ク 画 面 の 塗り つぶ し 


グラ フィ ッ ク の プロ グラ ム で , バック に 色 を 付け た いと き に ,COLOR 文 で バッ ク カ ラー を 指定 
し た の で は 都合 の 悪い ほ き が あり ます 。 た と えば , 白い バッ ク に 黒 で 絵 を 書き た いと き な ど で 
す 。 こ の よう な し ときには, LINE 文 の BF モ ー ド や PAINT 文 を 使い ます が , 全 画 面 を 塗り つぶ す に 
は か な り の 時 間 が か か り ま す 。 こ こ で は , この 画面 の 塗り つぶ し を 高速 で 実行 する 機械 語 サ ブ 
ルー チン を 作っ て み ま し ょ 25。 

機械 語 で この よう な プログ ラム を 作る 場合 、 ハード ウエ ア の 構成 を ある 程度 知っ て お く 心 妥 
が あり ます 。 こ こ で は , 画面 表示 を 行なう V-RAM を どの よう に コン トロ ー ル すれ ば よい か が 分 
か ら な けれ ば , プロ グラ ム を 作る こと が で きま せん 。 

X 1 で は , V-RAM の コン トロ ー ル を 一 般 の パソ コン と は 少し 違っ た 方 法 で 行なっ て いま す 。 
8 ビッ ト の CPU で 操作 (アク モス と 呼ぶ が で きる アド レス は , 0000H か ら 6FFFFH ま で の 64K バ 
イト で す 。 通常 , Vc-RAM も この アド レス の どこ か に 割り 当て られ て いま す 。 と ころ が , X 1 を 
は じ め と する 近頃 の パソ ンコ ユン で は , 細か い グ ラフ ィ ッ ク 表 示 を 行なう だ た め に グラ フィ ッ ク メ モ 
リ の 容量 も 多く, この 方 法 で は 不都合 で す 。X 1 の 場合 , グラ フィ ッ ク の V-RAM が 48K バ イト , 
テキ スト の V-RAM が 8 K バ イト の 合計 56K バ イト も あり ます 。 こ の V-RAM に アド レス を 割 ! 
当て て し まう と ,。 メモ リ は 8K バ イト し か 残ら 6 が な 《 く な っ て し まい ます 。 

多く の 8 ビッ ト パ ソ コン で は , これ を 解消 する た め に , 普段 は C じ PU も を メ イン メ モリ に つない 
で お き ,V-RAM を アク セス する 場合 に は CPU を V-RAM に つなぎ か える と いう , バ ンク 切り か 
ぇ の 方 法 が 使わ れ て いま す ( 図 9-4)。 こ うす る こと に よっ て , 同じ アド レス を メイン メモ リ 
V-RAM で 使い 分 け て いる わけ で す 。 

(089-4) (089-5) 


РОКЕ ош 
(Poke@) 


これ に 対し X 1 の 場合 は , V-RAM を シス テム の 1 /O ポ ー ト に 接続 し て 使っ て いま す 。1I /O 
ポー ト と いう の は , CPU が 外部 の 機器 と デー タ を や り と りす る と き の 出 入口 に あたる 部 分 で す 。 
X 1 に 使わ れ て いる Z-80A CPU で は , 0 か ら 255 ま で 256 個 の 1 /O ポ ー ト し か 持っ て いま せん 
が 1 /O の アド レス と し て は , メモ リア ドレ ス と 同じ , 0000H か ら FFFFH ま で を 使う こと が で 
—258— i вванйа Î а 1й2 
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š š+, CPU か ら , メイ ン メ モリ と V-RAM を コン トロ ー ル する 様子 を BASIC の 命令 で 表わす 
と 図 9-5 の よう に な り ま す 。 

1 の 1I/O ア ドレ ス は 湊 の よう に 割り 当て られ て いま す 。 

0000Н-- 0ҒҒҒН ユー ザー 用 1/0 ポ ー ト 

1000H~ 1FFFH シス テム 1/0 ポ ー ト 

2000Н-- 2FFFH V-RAM 属性 

3000Н-- 3FFH У-КАМ テキ スト 

4000Н--7ҒЕН  V-RAM グ ラフ ィ ッ ク 青 ) 

8000H BFFH / ( 赤 ) 

С000Н-- FFFH / ( 緑 ) 

ユー ザー 用 1 /O ポ ー ト と いう の は , ユー ザー が X 1 を 使っ て 外部 の 機器 を コン トロ ー ル する 
と き の た だ ため に 用 意 る れ て いる も の で す 。 ま た だ た, オプ ショ ン の RAM ボ ー ド , ROM ボ ー ド と フロ 
ッ ピ ビー ディ スク の コン トロ ー ル も この 部 分 に 割り 当て られ て いま す 。 

シス テム 1I/O ポ ー ト は , X 1 自身 が 与え られ た 命令 を 実行 する た め に コン トロ ー ル する 必要 
の ある も の が 接続 きれ, パレ ッ ト の 切り か ぇ え や PCG,。 PSG, カセット デッキ な ど は , この 1 /O 
ポー ト か ら コ ント ロー ル ん され て いま す 。 2000H か ら の V-RAM 属 性 は , 点滅 や 反転 , 文字 サイ ズ 
な どの 文字 の タイ プ を コン トロ ー ル し て いま す 。 

I /O ポ ー ト で は , 8 ビッ ト の デー タ を 扱い ます が , この 属性 は 各 ビ ッ ト に 次 の よう に 割り 当 
て られ て いま す 。 


CSZEHICSZEVI CG |CFLICREVI G | R [ B | 
7 6 5 4 3 2 1 0 


7 か ら 6 3 まで の ビッ ト は , BASIC の 命令 に 1 対 1 で 対応 し て いま す 。G, В, B の ビッ ト は , 
色 を 指定 する も る の で す 。 た と えば , ビッ ト 4 と 2, 1, 0 を 1 に する と , 文字 の 属性 は 点滅 モ 
ー ド で , 色 は 青 十 赤 十 縁 で 白 に な り ま す 。 ビ ッ ト 7 と 6 は , 文字 の サイ ズ を 決め る も の で , ビ 
ッ ト 6 が 1 な ら 6 縦 2 倍 , ピッ ト 7 が 1 な ら 横 2 倍 , 両方 し も ООО D 4F. 実際 
に 画面 上 に 文字 を 表示 する に は , 属性 を 指定 する と 同時 に , 3000H か ら の 画面 アド レス に デー タ 
を 送り ます 。 画面 の 左上 の ホー ム ポ ジ シ ョ ン は , 属性 アド レス が 2000H, 画面 アド レス が 3000H 
に な っ て いま す ( 図 9-6 )。 点 減 モ ー ド , 色 は 白 で A と いう 文字 を 表示 する た め に は , 属性 は 
ピッ ト 構 成 が 00010111=16+ 4 + 2 + 1 =23 で すか ら , 

OUT&H2000, 23 : OUT&H3000, 65, 

と し ます 。 属性 アド レス は この よう に 画面 アド レス と 1 対 1 に 対応 し て いま す 。 

グラ フィ ッ ク の アド レス は 少し 複雑 で , 画面 左上 の 1 文字 分 (8 X 8 ドッ ト ) に つい て は , 
9-7 の よう に な っ て いま す ( 青 の 場 合 )。 こ の アド レス に , 8 ビット の デー タ を 送る こと に よ 
っ て , 横 方 向 8 ドッ トコ ント ロー ル で きま す 。SCREEN 0, 0 と し て か ら , 

OUT&H4000, 255 
と する と , 8 つの ドッ ト す べ て が セッ ト さ れ , 横線 が 描か われ ます 。 他 の 色 に つい て も 同じ で す 。 
青 の 場 合 は , 4000H か ら 7FFFH ま で すべ て に 255=FFH を 送る こと で , 画面 全体 を 塗り つぶ せ 
ます 。 こ れ を 機械 語 で アロ グラ ム に し た も の が 〔 プ ログ ラム 9 - 1 ] で す 。BASIC で CLEAR &HEFFF 
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(49-6) кет (49-7) 
вв ЕВО 8 És F 
グラ フィ ッ ク 青 の アド レス の トー 
属性 アド レス D 
2000H 
画面 アド レス 8 F > Ë 
3000H 


と 指定 し て か ら モ ニタ の M コ マン ド で 打ち 込ん で くだ さい 。 間 違い が な いか 確認 し た 6,G F000 

と し て 実行 する こと が で きま す 。 こ の 機械 語 プ ログ ラム の 働き を BASIC で 置き か えた の が 【〔 プ 

ログ ラム 9 -2 〕 で す 。 右 側 は 機械 語 プ ログ ラム を アセ ャ ンプ ブリ 言語 で , 表現 し た も の で す 。BASIC 

の プロ グラ ム を 見 れ ば , どの よう な 動作 し て いる の か が 理解 で きる で し ょ う 。 ま た , со? 

ログ ラム も その まま RUN で 走り ます か ら , 機械 語 と の 速度 の 違い を 試し て みて くだ さる い 。 
[プロ グラ ム 9-1〕 


zF000=01 00 48 21 ЕЕ ЗЕ EQ 78 и..а! т? gx 
sF008=3E FF ED 79 ӨЗ 28 7C 55 и> тау, +17 
:F010=C2 08 Ей C? 080 ва ве ва и, л... 
:zF000=01 08 40 LD вс, 4060H 

: 03:21 ЕЕ ЗЕ ШО HL』3FFFH 


:F99 る =ED 78 IN АС) 
‘F008=3E FF LD А. ЗЕЕЕН 
:Е@@А=Ер 79 OUT (CY, А 
sF99C=93 INC вс 
5F99D=2B DEC HL 
:ЕЙФЕ-7С LO а,н 
:F00F=B5 OR L 
5F919=C2 йв FO ЈР NZ, Евавн 
:F013=C? КЕ! 
[プロ グラ ム 9 - 2 〕 


10 WIFTHS0:SCREENð, B:C 55 


20 50508 1й@й 


39 END 

40“ 

50 ғ 

64. 

Pd 

ва“ 

»а * 

108088 вс-знаввй に BE ロニ 1 ロビ LD вс, 4000H 
1010 HL=&H3FFE =б©з=21 FF ЗЕ -0 HL, ЗЕЕЕН 
1020 A=INP (ВС) こせ EE ら = ニ どり 78 IN АС) 
1030 A=&HFF トロ = ご ヒビ FF ШО а, 3FFFH 
1848 OUT ВС, а Е@йа=ш у 79 QUT C), A 
1050 вс-вс+; F 9 に = ラ INC BC 

1068 H_=Hi_- 1 :F06D=29 DEC HL 

1870 :ЕйЙЕс?С LD A H 

10850 :РВЕ- <85 ок“ 

1090 IF н.<28 GOTO 1030 1 ビ ロ 1 ロ = ヒビ ご а ға JP NZ, F008H 
1100 RETURN * ビ ロコ 1 コ ニ ビ タダ КЕТ 


また ,〔 プ ログ ラム 9 -2 ] を よく 見 る と わか り 5 
HH と すれ ば それ ぞ れ 赤 。 緑 で 塗り つぶ し を 行なう 


—248— 


り ま す が , BC に 指定 する アド レス を 8000H, C000 
7” プロ グラ ム を 書き か え を 


184 


жеді 


9 機械 語 も 使え ます 


る と き に 注意 し な く て は いけ な い の は , この アド レス の 書き 方 で , 16 進 4 桁 の 数 を 扱う に は 上 
位 8 ビ ッ ト と 下位 8 ビッ ト を 逆 に する と いう 点 で す 。 だ たとえば, アモ センブリ 言語 で , LD ВС, 
4000H と な っ て いる 場合 機械 語 で は 01 00 40 に な り ま す 。 

〔 プ ログ ラム 9 - 3 〕 は , この 機械 語 プ ログ ラム を BASIC か ら POKE 文 で 書き か ぇ , 色 を 指定 し 
た 後 , サブ ルーチン と し て 呼び 出し て 使う も の で す 。 こ の 場合 , 色 は 重ね 合わ せ に な り ま すか 
6, 青 で 塗っ た うえ に 赤 を 塗る と マゼンタ に な り ま す 。 ま た だ, CLS は 直前 で 使っ た 色 に 対し て 
行なわ れ ま す 。 こ の CLS を 行なう 方 法 は , 機械 語 を どの よう に 書き か えて いる か 考え て みて 〈 
だ さい 。 

〔 プ ログ ラム 9 -3〕 

10 CLEAR&HEFFF 

20 WIDTH 89:SCREEN 0, 8:CLS 4 

за INPUT "CLS = 9 : ?# = 1 : アカ = 2 : ミト ドリ =3 "СОЮ 
48 IF COL<@ OR COL>3 вото 30 

58 ON COL+1 GOSUB 70, 100, 100, 100 

68 GOTO 39 

78 POKE &HF99 ヶ , 8 

80 CALL &HF999 

90 RETURN 

188 COL=COL※64 

110 POKE АНҒй09,255:РОКЕ &HF992, COL 


120 CALL &HF008 
130 RETURN 


Фі ІСІ > /-Р 


デー タ を 大 きい 順 や 小さ い 順 に 並べ か えん る ソー ト は , デー タ が 多い と き に は か な り の 時 間 が 
か か り ま す 。 今度 は この ソー ト の 人 簡単 な も の を 機械 語 で 作っ て み ま し ょ 2 う 。 
[プロ グラ ム 9 - 4 〕 


siF999=21 1С Ей го HL,F01CH 
:F003=0é FF LD 8, ЕЕН 
1F995=7E LD а, (HL) 
:Е 006 <48 LD б,в 
:Е007 54 LD бын 

:Е 0850 LD Е, 
:ЕО0Я ВЕ СР (HL) 
:Едйаз02 12 ЕФ те NC, 12F0H 
:F00D=08 ЕХ ВЕ, АЕ” 
:F99E=7E LD а, (HL) 
:ЕдВЕ < 08 Ех а, ае” 
:Е0 1877 LO (HL), A 
:F011=08 ЕХ ВЕ, AF’ 
:Е012-23 INC HL 
:F013=0D DEC C 
:F014=20 ЕЗ JR NZ, ЕЗН 
:F016é=EB ЕХ DE,HL 
:F017=77 LD (HKL); A 
:F018=23 INC HL 
:F012=10 Ед DJNZ EAH 
:Ей1В-С? RET 


〔 プ ログ ラム 9 - 4 〕 が 機械 語 に よる ソー ト の プロ グラ ム で す 。 右側 は アセ ン ブ リ 言語 で 表現 し 
た も の で す 。 打ち込む と き は この 部 分 は 無視 し て くだ きる い 。 こ の プロ グラ ム で は , ツー ト す る 
デー タ 数 は 255 個 , 扱 える 数 値 デ ゲー タ は 0 か ら 255 ま で の 整数 に 限ら れ ま す 。 こ の デー タ は , FOLCH 
か ら 順 に 書き 込ん で お ぉ きま す 。 ソ ー ト が 完了 する と , 同じ アド レス か ら 大 きい 順に 並べ か えら 


185 таявайте1 --261-- 


sa 
т 


れ て 入っ て いま す 。 間違い な 〈 く 打ち込ん だ 6BASIC に 戻り , 〔 プ ログ ラム 9-5J〕 を 打ち 込ん で 
(778% 
[プロ グラ ム 9 - 5 


10 CLEAR ӘНЕЕЕС 

20 FOR Ісі ТО 255 

за DA=INT «вможг55) + 1 

40 POKE ЗНЕЙ:В +, DA 

50 PRINT DA, 

る 9 NEXT:PRINT 

70 PRINT "カキ コミ オ ワ ウリ "5ST ロ P 
80 са: &HF 888 

90 PRINT "SORT オウ ワリ リュ 5 て ロロ 
199 FOR Ісі ТО 255 

110 PRINT PEEK (&HF01B+I), 
120 МЕХТ 


ここ で は , サン プル デー タ と し て , 1 か ら 6255 ま で の 数 値 を 乱数 を 使用 し て 発生 させ, 画面 に 
表示 し な が ら 6FO1CH か ら 書 き 込ん で いま す 。 書 き 込 み が 終 わる と STOP 文 で 止ま り ま す 。CONT を 
実行 する と , 1 秒 も か か ら ず に 「SORT オ ワ リ 」 の メッ セー ジ が で ます 。 再び CONT を 実行 す 
る と , FO1CH か ら 書 き 込 まれ た ソー ト ず み の デ ー タ を 読み 出し て 表示 し ます 。 

この プロ グラ ム で は , デー タ の 数 を F004H に 書き 込ん で あり ます 。 こ の FFH を 変え る こと に 
kb, ツー ト す る デー タ の 数 を 決め る こと が で きま す 。 だ た と えば , 10 個 の デー タ を ソート し た 
いと き に は , 0AH を 書き 込み ます 。 ま た だ , F00AH か ら を , JP С, F012H, 機械 語 で は DA 12 
FO と すれ ば 小さ る い 順 の ツ ソート に な り ま す 。 


Біл 
сә 
бы. 


立体 迷路 か ら 腕 出 / 
(3 D の 技法 〕 


3D グ ラフ ィ ッ ク と いう 言葉 が よく 聞か れ ま す が , この 3D と いう の は 3 Dimensional, 3 
bt 3 決 元 グラ フィ ッ ク の こと で , 平面 (2900) の 画面 に 立体 (3 次元 ) の も の を 表現 し ょ 
うと する も の で す 。 

身近 に ある も の に た と える と , 写真 な ど が よい 例 で す 。 立体 的 な 建物 や 風景 も 写真 に 撮る と 
平面 の 中 に な る まっ て し まい ます 。 それで も , 写真 を 見 れ ば 建物 の 立体 感 が わか り ま すね 。 こ 
れ は , 近く の も の は 大 きく 〈, 遠く の も の は 小さ く と いう 遠近 感 が 写真 の 中 に ある か ら 6 です 。 п 
ンピュータ の ディ スプ レイ 画面 に も これ と 同様 な 操作 を し て や れ ば , 立体 を 表現 で きる は ず で 
すね 。 これが 3D グ ラフ ィ ッ ク で す 。 

3 D - 2D 変 換 の 方 法 し し て よく 〈 使 われ る の が , 単 点 (1 点 ) 透 視 と 呼ば れる 方 法 で す 。 図 10 - 
1 は , 同じ 高き の 4 つの ビル を 単 点 透視 で 描い た も の で す 。 同 じ 高 き の 線 が 奥 へ いく ほど 1 点 
に 集まっ て ます ね 。 こ の ょ うに 3 次 元 , 2 次 元 に 変換 する 方 法 を 単 点 透 視 と いい ます 。 

ここ で は , この 単 点 透視 を 用 いて 作っ た 迷路 〔 図 10 - 1) 
脱出 ゲー ム を 紹介 し ます 。 

ゲー ム の や り 方 は 簡単 で す 。 プ ログ ラム を 走 
ら せ る と , 画面 に は 現在 の 位置 (地図 ), 方 向 ( コ 
ン パ ス ), 見 て いる 景色 が 表示 され ます 。 前 に 進 
むと き は テン キー の [8], 左右 後ろ の に 向く とき は , それ ぞ れ テン キー の [4], [6], [で 操作 し ま 
+, 進め る の は 前 だ け で , た と えば 左 に いき た いと き は , [4|] で まず 左 を 向き , [8] で 前 進 し ます 。 
3 つの 画面 を 参考 に , 迷路 を 脱出 し て くだ さい 。 

簡単 に ゲロ グラ ム の 説明 を し て お きま し ょ う (プロ グラ ム 10 - 1), 

〔 プ ログ ラム 10 - 1) 


10 WIDTH 40:1МІТ 

20 COLOR &:LOCATE 5, 10:PRINT"data ヨミ コミ チュ ウ "iLUCATE 8, 12:PRINT"JN“ 
22 17%29%94" 

30 CLEAR:DIMmZ (66, 66) :GOSUB 590 

40 INIT: CLS 4 :GOSUB 50:5СВЕЕМ 1, 1:С. 84 : с0б0В 50:656070 100 


60 LINE (с, 0) - (57,58), РЗЕТ, 1, ь: РЗЕТ (57,57, 2): INE (63,54) - (59,57) - 
(63, 60) : LINE (59,57) - (79, 57): CINE (0,99) - (161,199), РЗЕТ, 4, b 

70 CIRCLE (220,50), 40, 7:CIRCLE (220,50), 35, 7:208 rr=0 TO 3. 14159ж2 
STEP 3.1415%9Z4:L INE (COS (гг) ж40 +220, 51ІМ (гг) ж4  й +50) - (COS (rr) ж39 +2 
20,5ІМ‹(гг) ж35 +50), РЗЕТ, 4: NEXT 

80 пх=216: пу= й: тп = "№" : 6050870: пу=995: пҳ=2 17: пп въз "5": 56050890: пх= 1 

68: пу=48 : пп = "А" GOSUE 70: пх=2454 : пп < "Е": 505068 90: ВЕТОКМ 

90 mn=ASC (mn$) : пп: ЕС ТФ (СБРАТЕЪ (mn), 3) POSITION пх, пу: СО: ОВ7: РАТ 

TERN-3』 mn$:RETURN 

100 < 

118 ти (1, й) + 1: и. (В, 1) =1:5с=0 

120 X=1:Y=1:PSET (X, Y, ó) : НВ<Згухкдй: цукй: А+ 8: GOTO 166 

130 < 

140 А=5ТІСК (0) : ТЕ «а MOD 2)=1 DR A=8 THEN 140 

150 ТЕ し 1 ま ="999999" THEN INIT:CLS4:CSIZE 3:1 ОСАТЕ 4, 108: РР МТ НЙ "С 
омскатикаттом" : ЕМО 
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ч в 


160 DI=0:ux=0Ü:uy=0:COLOR8:G0SUB278 

178 A=A¥2:0N А GOTO 1880, 1980, 200,216 

180 A=3:GOTO 220 

190 А=4:60Тт0 228 

208 A=2:GOTO 220 

210 A=1:DI=1 

220 HB= ‹ < ‹НВ+А-2) MOD 4) +1? 

230 rr= (НВ-2) жў0: гг =rr-Z180x3, 1415926: ух+СО8 (гг) : џу=51ІМ (гг) : х= ух 
:Оугуу 

248 IF mZ(X+X, Y+UY) =1 THEN UX=Q:UY=Q 

250 СО ОК? : СОЗИВ 290 

260 ТЕ 015 THEN VX=0:VY=6 

270 SCREEN sc, й: РЗЕТ (x, ¥, 5) : ЗСВЕЕМ sc, 1: РЗЕТ <x, у, 5) : хих+ухгукУ+у 
у: РЗЕТ (х, у, 6) :SCREEN sc, 0:РЅЕТ (х, у, é) : ЗСКЕЕМ sc, sc 

280 WINDOW са, 0) - (319, 199), (0,0) - (317, 199) : 50508 399:SCREEN вс; өс 


:МІМООМ (0,0) - (319, 199), (0, 0) - (319, 199) :GOTO 1380 

290 rr= (НВж?е- 180) ж3. 1415926/180:5СКЕЕМ sc, 8:L INE (220,50) - (COS «г 
г) ж30+220,51М (гг) ж30+50) : SCREEN sc, {LINE (220,50) - (COS (гг) ж30+22 
0,5ІМ (гг) ж30+50) RETURN 

300 ’ 

310 _1%="":12Ф="":1_3Ф="" 

320 IF HB=1 THEN IF Y<8 THEN ЈК=Ү-і ELSE JK=é ELSE ЈК=6 

339 IF HB=4 THEN IF Х<8 THEN JK=X-1 ELSE JK=é 

340 FOR 1-й TO JK 

350 L1$=L1$+RIGHTS (STR$ (МИ (Х+ау + 1жах, У-ех+ 1жеу)), 1) 

360 L2*=L2*+RIGHT*(STR*(MZ (X-9Y+IX9X, У+ох+ 1жет?2, 1) 

370 L3*%*=L3*$+RIGHT$(STR* (МИ (хжох+ 1 жех, У+оу+ 1жет)), 1) 

389 NEXT 


398 г 
400 SCREEN вс, 1-е«с:ес<1-«с:МІМООИС1, 100)-<160, 198), сй, 0) - (160, 18 
02 iCLS 0 


410 IF МІб%6411%,1,12-:"1" THEN LINE <0, 0) - (10,4) - 10,92) – (0, 100) Е 
LSE LINE 0,4) – (10,4) - 10,92) - (0,92) 

420 IF МІОФ (2%, 1,1) = "1" THEN LINE (160, 8) 150,4) - (150,92) - (160, 
100) ELSE LINE (168, 4) - 150,4) - 150,92) - (150,72) 

438 IF МІОФ (3%, 1,1) ="1" THEN LINE (108, 4) (150,92), РЗЕТ, 7, В: RETUR 
N 

440 ТЕ MID*$(L1%,2, 1y="1" THEN LINE (108, 4) (48, 18) - (40, 68) (10, 2) 
ELSE COLORO:LINE (10, 4) - (40, 18) !:L INE (10,92) - (40, 58) : COLDR7 : L INE < 
10, 18) - (40, 18) - (40, 68) - (10, 68) 

458 IF М103 (23, 2,1) "1" THEN LINE (150,4) – (120, 18) - (120, 48) - (158 
92) ELSE СОГОК?:| ТМЕ (1598, 4) - (120, 18) :L INE (150, 922) - (120, 68) : СО! О 
R7:LINE 150, 18) - (120, 18) - (120, 68) - (158, 58) 

460 ТЕ MID$(L3$,2, 1)="1" THEN L INE (40, 18) - (1208, 68), РЗЕТ, 7, В: ВЕТО 
км 

478 ТЕ М103Ъ4 13, 3, 1) ="1" THEN LINE (40, 18) - (55, 24) - (55, 56) - (40, 68 
> ELSE COLORO:LINE (40, 18) - (SS, 24) : LINE (40, 68) - (55, 56) : COLDR7:LI 
МЕ (40, 24) - (55, 56), РЗЕТ, 7, B 

480 ТЕ MID$(L2$, 3, 1) + "1" THEN LINE (120, 18) - (1й5, 24) - (185, 56) - (12 
0,682 ELSE СО: ОКВ: ТМЕ (128, 18) - (105, 24) :| ТМЕ (120, 68) - (185, 56) : СО 
LOR7 ア LINE (120, 24) - (15, 56), РЗЕТ, 7, В 

498 ТЕ М103 35, 3, 1) ="1" THEN LINE (95, 24) - (105,56), PSET, 7, В: ВЕТО 
км 

500 IF МІОФ‹_ 1%, 4, 1) ="1" THEN LINE (55, 24) - (65, 28) - (65,47)- (55,56 
2 ELSE LINE (SS, 28) - (65, 47), РЗЕТ, 7, B 

510 ТЕ MIDS (| 25, 4, 1) ="1" THEN LINE (105, 24) -<95, 28) - (95,47) - (105, 
562 Е ЗЕ LINE (105, 28) - (95, 47), РЗЕТ, 7, В 

520 IF MIDS (13%, 4, 1) "1" THEN LINE (65, 28) -< 95, 47), РЗЕТ, 7, В: КЕТО 


530 IF MID$(L1$,5,1)="1" THEN LINE (65, 28) - (70, 31) (70, 43) - (65, 47 
2 ELSE LINE (5,31) - (70, 43), РЗЕТ, 7, В 
540 ТЕ М103( 23, 5, 1) + "1" THEN LINE (75, 28) - (7й, 31) - (90, 43) - (95,47 
2 ELSE LINE (95, 31) (90, 43), РЗЕТ, 7, В 
550 ТЕ М103 (135, 5, 1) + "1" THEN LINE (70,31) -< 90,43), РЗЕТ, 7, В: КЕТО 


189 144441881 --265-- 


560 ТЕ MID$ (L1$, é, 1)="1" THEN LINE (70, 31) - (75, 33) - (75,39) - (70,43 
) ELSE LINE (70, 33) - (75, 39), РЅЕТ, 7, В 

578 ТЕ М10811 23, 6,1) = "1" THEN LINE (90, 31) - (85, 33) - (85, 39) - (90, 43 
) Е ЗЕ LINE (90, 33) - (85, 39), РЅЕТ, 7, В 

580 LINE (75, 33) -< 85, 39), РЗЕТ, 7, В: RETURN 

590 ” 

600 RESTORE 680 

610 FOR i=9 TO 7:FOR j=9 ТО 7 

620 READ a$ :аФ=НЕХСНЕФ (a$) :аФ= " " 

638 FOR 1-0 TO 8 

640 d$=d$+RIGHT$("00000008000"+BIN%$(ASC (MIDS (аф, 1+1,1))›,8› 

450 NEXT 

660 FOR 1=1 ТО 64: mZ(ixw8+j,1l-1)=VAL (MIDS (аф, 1, 1) : NEXT 

670 NEXT :NEXT:RETURN 

680 DATABFFFFFFFFFFFFFCB, 400808008820208С0, AFFEBBEFABEBEECO, 8882A 
220220808С0, BAAEAEBFFEFFFBC9, 84288240000820С0, AFEBFEAFFFFAEFCO, А 
92Q998892@229C@ 

690 DATABBEAFFFBFAFFAEC 0, Зайайгагдйвгагса, AAF BFEFEBAF ABAC O, A8088 
98 9Q22282C9, AFFEBFBFEFAEFE じ 9, A08288888820A2C0, AF BAAAEABBEF ABC 9 
780 оатаайгггггайвававса, BFEFFEEBEBFEAEC9, 82020228280224С0) ВАЕЕЕ 
FAFAFEBEAC 9, 84888828220428С0, EEEBFBEBFEFAEFC9。 А2ЗА0Ай8200888С0,Б 
ABABAFFAFEFBEC9 

710 DATAA2028A88822022C0, GFFEEEAAFEBFEAC O, QB 6888Q2298998C9, AAEBF 
ВВЕЕЕВЕЕЕСО, QA22992989Q998C9, АВВЕЕЕЕЕВЕВЕВАСО, BB8822999292982C9,B 
ЕЕЕЕЕЕЕЕЕЕЕЕЕСО 

728 патавегвваввггавваса, ВЕЕВВЕЕОҒАВВВЕС0, ваг2ззазаазаггаса, BFAEF 
EBBEFAEFEC9, 82208242208809С0. BAFFBEAEBAFBFFC9。 завеававзайзавса, в 
ВВЕЕВАВВВВЕЕЕСО 

7308 DATAA22999888A2 982C@, EEEFFEFBEBEEBEC9, 880002882A0A88C0, BFFFB 
BAFEAFABBC O, 80008822222280С0, BEFEEFFABFAEFFCg, 828Q299889A299C9, В 
AABBEBFFEAAFEC9 

748 DATASA2829Q82 9QABSC9, QBEFFFEFAFAEAFC9, 58208020А02848С0) BBFFF 
ВВЕВЕЕВЕЕСО, А20802082422808С0, AEFFEFF AAAAF ABC 0, Q2968898AAB2ASC9, В 
BEFBFEFAAFABEC@ 

750 DATAA228228A2A9AB 0C0, AEABFABAEAEAFFCO, А0 А0820808880800, ЕЕЕЕЕ 
FFFFFFFFFC9, FFFFFFFFFFFFFFC9。9999999999999999,9999999999999999, е 
0909999999999999。9999999999999g99 


10 行 か ら 30 行 で 迷路 の デー タ を 配列 m%% に 読み 込ん で いま す 。 実 際 の 読み 込み は 590 行 以降 の 
サブ ルー チン で 行なっ て いま す 。 迷路 を つく る プロ グラ ム は むず か し く , プログ ラム 自体 長く 
な っ て し まう の で , ここ で は すでに 作ら れ た 迷路 を デー タ に し て いま す 。 時間 の ある 方 は , 自 
分 で 迷路 を 作る プロ グラ ム を つけ 加え て くだ さい 。 

迷路 は 64X64 ド ッ ト で 作ら れ , 道 が あれ ば 0, な けれ ば (RES) 1 と し て , 64X64 ド ッ ト 
の 2 進数 デー タ を 作り ます 。 これ を 横 1 列 ず つと っ て 16 進 デー タ に 直し , 8 バイ ト X※64 個 の デ 
ー タ と し て DATA 文 に 書い て お きま す 。 

40 行 で は ゲー ム 画 面 を 作っ て いま す 。 そ の サブ ルー チン が 50 行 か ら 90 行 で す 。 こ の ゲー ム で 
は , SCREEN モ ー ド を か を えて, 画面 を 切り か えて いる の で , 2 枚 分 の ゲー ム 画 面 を 用 意 し ます 。 

110 行 か ら 120 行 が 初期 設定 に な り ま す 。 変数 SC に は 現在 表示 中 の SCREEN モ ー ド (0 ある い 
は 1) が 入り ます 。SCREEN SC を 表示 中 , 裏 の SCREEN1-SC に 描き 込み , 描き 込み が 終わ 
る と 同時 に 画面 も 切り か えま す 。 こ うす る こと で , 画面 を 瞬時 に 変え る こと が で きま す 。 変 数 
X, Y が 現在 いる 座標 , HB が 向い て いる 方 向 , VX, VY は 進む 方 向 を ベク トル で 表わし た も の 
で す 。 方 向 は 北 を 1 と し , 右 ま わり に 2, 3, 4 と し ます 。 

メイ ン ル ー チ ン は 130 行 か ら 290 行 に な り ま す 。 こ こ で は , テン キー で 入力 きれ た 値 か ら 進 む 
方 向 を 求め , 画面 の 書き か ぇ を し ます 。270 行 で は 地図 の 書き か え ぇ , 280 行 で は 見 て いる 景色 の 
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3D 画 面 を 描き ます 。 こ れ ら の 処理 が 終わ る と 130 行 (メイ ン ル ー チ ン の 頭 ) に 戻り , 同じ 作業 
を 繰り 返し ます 。 . 

300 行 か ら は じ ま る サ プ ブルー チン は , 3D 画 面 作成 の た め の 情 報 を m% から 引 き 出 し て くる , 
と いう 作業 を し ます 。 この 情報 し いう の は , 図 10 - 2 に 示す よう に 現在 地 を 基点 と する 3x7 
の 点 で す 。 こ れ ら の 点 の 情報 が , 左 か ら , 118, 13$, L2$ と 列 ご と に 格納 され ます 。 こ れ ら 6 の 
点 を 順に 調べ て 迷路 の 図 を 描 じ て いく わけ で す 。 こ の 作業 は 400 行 か 6580 行 の サブルーチン で 
行なわ れ ま す 。 図 10 - 3 は 基本 と な る 画面 で , 壁 に 沿っ て 道 が な けれ ば 実線 で , 道 が あれ ば 硫 
線 の よ うに 描け ば 良い わけ で す 。 


(B10 - 2) (0410-3) 


この プ ブログ ラム で は 一 番 奥 の 点 (正面 7 つ 目 の ブロ ッ ク ) «Её [т {%1°6, 遠く が 突 
き 当 た り の よう に 見 えて も 実際 に そう だ と は 限り ませ ん 。 ま た , 画面 の 情報 し し て 6 ブロック 
し か 使っ て いま せん が , 7 ブロ ッ ク , 8 ブロ ッ ク と 情報 を 多く し て , 画面 の 奥行 き を 広く する 


こと も で きま す 。 挑戦 し て みて くだ さい 。 
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キャ ヤラ クタ ・ ジ ェ ネ レー タ 


次 の プロ グラ ム は , カー ツル と テン キー で キャ ラク タ を 描き , その キャ ラク タ の デー タ を プ 
ログ ラム に 収め ゆる も の で す 。 ゲ ー ム な ど で 使 う キ ャ ラク タ を 簡単 に 作る こと が で きま す 。 
[プロ グラ ム 10 - 2) 


10 CLEAR:DIMPX(C7, 7) E$*<XZ):INIT7 г мсотнай: с. 84 

20 LOCATE й, 12:PRINT"y" от 42 DATAS CD ZAR シマ スカ 2 Yes "so 

30 A$=INKEY$: IFA$="" THEN3OELSE IFAS="N"UORGS= "n" THENCE _S:GOTOAOSOSLSE 

IFA$="Y"ORA$=" y" THEN4 BELSEG ロ T ロ 3 ロロ 

40 CLS:AS=STRING$ (24, CHRE (0) ) :FDRI=8TO02SS:DSEFCHRES (I) =ASSNEXT 

50 COLOR1:FORI=@üTO14:LOCATEI, В: РЕТУТ" 8"; : | ОСАТЕ17-1, 17 :РЕТМТ В"; 

г осатЕв, 1 アーI EPRINT "8"; :| ОСАТЕ 17, Г: 28 ТА"; : ЧЕХТ 

е РОКТ+ ВТО 15: ОСАТЕЙ, I +; : ORINTHEXS (I)i ОСАТЕ ! + 1, Й: РР: МТНЕХЪ (І) 
sNEXT:COLOR7 

79 ССЕМІ : РОВІ =#Тт015:Е097Ј=67015:0САТЕІ +1, 7 +: : РЕТУТУЙСЧЕ В (1 + 1ж16) 

$ SNEXTJ, I: СБЕМ 

ва СООК: РОК Т+Й ТО? :: ОСаТЕ I +25, 13:PRINT" x"; L ОСАТЕЗ4-1, 23: РЕТМУТ" 

ж": осатЕз4, 14 +: 9КТ..Т"ж" 1: | ОСАТЕ 25, 23-Г: РЕТАТ"ж" f NEXT 

98 РОКТЕВТО7?: ТЕ 1 ТНЕМСО: 087: СВЕМ: Е | ЗЕСОЦ ОР: 

100 Г ОСАТЕ26 + ГТ, 12: Ре! -ТНЕХЪ <I) L ОСЕТЕ24, 14 + Г: КТ ТНЕХ 8 (1) $ : СЕМ 

: NEXT:COLOR7 

118 г ОСАТЕ:, 1: СЕ АНІ: СБЕМ: : СО: ОК?: а 1 тнйс-къся) 1: СбСЕМ: СЕ: 369 

120 LOCATE1?, 1: со око: ет утвасчкъ (38, 31 29, 2824: СО: 087: РВ1МТ" + 

イサ イ カメ ラメ カー ツル " 

138 LOCATE; COLORS IPRENTTCELURVTSEICHLHR ア EPR SPE ЖАЗА カメ フッ 270) 

>" 

140 LOCATE19, 5:COLORS: PRINT " i" 

150 LOCATE 19, 6 COLORSIPRINT" 3" ICOLOR7IPRINT +” S ICOLORS:PRINT"k 


"3 SCOLOR7: PRINT " ZAPA カー デメ ン ノ カー ソリ 

160 LOCATE19, 7:COLDRS:PRINT" m" 

170 LOCATE19,?:COLORS:PRINT" с"4:СОГОК?: РЕТАТ" тей ав" 
180 ГОСАТЕӨ, 24: СО ОК5З:РАТУТ" о" i СО, О8?: РК МТ" DATA OUT"; 
190 LOCATE1, 1: СЕ| ан: : СБЕМ: : СО ОК? : 26 ТК вЯСНКА СЙ) +: СБЕ!“: СЕ| абн 


200 LABEL "МАІМ" 

210 CX=1:CY=1:X=1:Y=1:MN$="012345647ijim4co"+CHRS (28, 29, 30,31, 12, 1 
3) 

228 LABEL "LOOP" 

230 LOCATECX+25, CY+13:COLORPX CCX-1, СҮ-1) iCFLASH1 IPRINT "の "jiCFLAS 
HICH=XX16+Y-17 

240 Q$=INKEY$: 1Е03-" "ТНЕМ24 QELSEW= INSTR (MN$, 05) : IFWN=OTHEN2Z4 0 

250 IFW<ỌTHEN"PSET"ELSEIFW<13THEN"CURS"ELSEIFW=13THEN"COPY"ELSEI 
FW=14THEN"DATAOUT"ELSEIFWNKC1FTHEN"LOCA"ELSEIFWN=19THEN"CLR"ELSEGOT 
О"ҒІМЕ" 

260 | АВЕ "PSET" 

270 РИССХ-1,СҮ-12-И-1 

288 | ОСАТЕСХ+25, Су+ 13:С0: ОКН-1: РЕТАТ "е"; 

299 СХ=СХ+1: ТЕСХУВТНЕМСХ + 1 : СУ< СУ +: : |ЕСУ  ВТНЕМСХЕ 8: Сух2 

300 6070" ООР" 

310 LABEL "| оса" 

320 | осатесх+25, Су+ 13: СО ОВРи «СХ-1, СУ-1) SPRINT" ®8"; :ОМИ- 146050833 
0, 350, 370, 390: БОТО "LOOP " 

330 СХ=СХ+1: IFCX>BTHENCX= 1: СУ+СУ+1: IFCY>STRHENCX=8:CY=8 

349 RETURN 

350 CX=CX-1: IFCX<1THENCX=8:CY=CY-1:IFCY<1THENCY=1:CX=1 

360 RETURN 

370 СҮ=СҮ-1:1ЕСҮ<1ТНЕМСҮ=1 

380 RETURN 

398 CY=CY+1: IFCY>BTHENCY=8 
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488 RETURN 

410 АВЕ "F INE " 

420 CFLASH0:LOCATECX+25, CY+13: COLORPX (СХ-1, СҮ-1) SPRINT" ®"; СНкХж 
16+У7-17:00508 "DEF - ビ ロマ "ミロ ロイ エロ" ヒロ ロビ ピ " 

430 LABEL "CURS" 

ада CONSOLES, 25, 0, 40: CGEN1 :СО1 037:: ОСАТЕХ, YICFLASHIPRINTHOCHRS ск 
ж1&+Ү-17›{ 

450 Оми-8бО50845&й,&86@,5@й,52@:6О0ТО54@ 

468 Y=Y-1:IFY<1THENY=1 

470 RETURN 

480 X=X-1:IFX<1THENX=1 

490 RETURN 

500 Y=Y+1i 1ЕУ> 16 ТНЕМУ+ 14 

510 RETURN 

520 X=X+ 1: 1FX>1 る TENX= 16 

530 RETURN 

548 CFLASH1:COLGOR7:LOCATEX, Y:PSINT=# CR (жж14 + 7-17); : СБЕМ: CFLASH 
:СОМЅО Е 14, 29, 26, 8 

550 сото"! ООР" 

560 _ АВЕ "с. е" 

570 CONSOLE14,?, 26, В: ЕОВТ ЕТО? ECORI = 707? :РИ(Т, Ј) =0:МЕХТЈ, I: PRINT 
СНЕФ (12) : БОТО "| 00Р" 

1000 LABEL "ОЕЕ-СНЕ" 

1010 A*$="";FORI=0TO7:FORJ=0TO7:AG6#=AS+SIG-=- 75 ("00"+81МФ(рИСј, і) ›, 
3> :NEXTJ, І 

1020 ВФ (1) =" ":В% (2) <"":В3 (3) =" " 

1030 FORI=0TO7:FORJ=0TO7:FOR_ -ӨТО2 

1040 ВФ +1) =В% (L +1) +МТО5 (АФ, і +1ж3+1ж24+1, 1) 

1050 МЕХТ., J, I 

1050 FORI=1iTO03:L$="":FORJ=ØTO7:L$=L$+RIGHTS "00" +НЕХФ (VAL ("8&B "+M 
103 (ВФ (І), Јж8+1,8))),2) : МЕХТ:ЗФ (1) =L: МЕХТ 

1070 ОЕҒСНЕ%Ф (СН) -НЕХСНЕ Е (8% (3) + В (2) +B$ (1) ) 

1080 СО 087 :СОМ501 ЕЙ, 25, й, 40:ЕОВі=1Т03:: ОСАТЕЙ, 17+1і:РЕІМТЬФ (4-1) 
{1 МЕХТ:СОМСОЕ 14, 9, 25, 8 

1090 CX=1:CY=1:RETURN 

1100 LABEL "СОРТ" 

1110 АФ-ВІСНТ%Ф(ССРАТФССЫ2. 24) 

1120 FORJ=ØT02:8$(J+1)="":FÜRI=0TO7:BS(J+1)=38%(J+1)+RIGHTS ("0000 
0000" +ВІМФ (ASC (MIDS (АФ, І%7жЖ8%1222,80:МЕХТІ./ 

1138 FORI=0TO7:FORJ=0TÜ7:12Z CI, 1) + МА: ("Ввь" +MIDS (ЕФ 3), J+IX8+1, 1) + 
MIDS (Въ (2), Ј+Іжа+1, 1) +MIDS$ (ВФ (1), J+IXS8+1, 122 : СО. ОВРИ (J, I) LOCATE 
7%26, 1+14:РЕТМТ "е"; МЕХТЈ, І:СОЦОВ? 

11408 бОТО" ООР" 

1288 LABEL"DATADU TH 

1218 NIDTH40:CLS:COLOR4, 0:_INE (0, 0) -<17 17), "Ш", B:COLOST: ОСАТЕ@ 
з 2: РВІМТ"ОАТА әк“? サク セイ 11!" :оУОкгййй: I=0 

1220 1ЕКТСНТ  (СБРАТЪ (1), 24) =ST RINGS (24, CHARS (0) 2 THEN" ІМС" 

1230 SCREEN, 06: СбЕМІ: ОСАТЕІМТ (1/16) +1, (CI MID 14) +1:PRINTHOCHRS ( 
I) iCGEN 

1240 SCREENB, 1:GYOS=RIGHTS (STRES (GYO), 4) s DDS=" ":С%=РІБНТЊ (CGPATS tL 
1), 24) 

1250 FORj=0T023:D0D0$=00$+RIGHTS "00" + -ЕХЗ (ASC MIDS (C$, 1+1,12)2,22 
: NEXT 

1260 С! 5: РК ТМТСУО3 + "Ой. "+005+", "+ НЕХЪ (І) 

1270 KEYO, CHR$ (30, 30) +СНЯ 3 (13) + "6070128й" +СН9 5 (13) : END 

1280 GYO=GYO+18 

1290 LABEL "ІМС": І=1+1:ІЕ Іс256 THEN 1228 

1300 SCREEN 8, 1:CLS:SCREEN80, 8:CLS:LOCATE80, 18: PRINT DATAN 2000л> 

>“ Z" sEND 


プロ グラ ム の 説明 を 簡単 に 行ない まし ょ う 。 ま ず , 10 行 か ら 40 行 で , 画面 設定 , 配列 宣言 な 
どの 初期 設定 を 行ない ます 。 配 列 P% は 作成 中 の キャ ラク タ の 情報 を 格納 し て お くも の で , B$ 


は 色 別 デ ゲー タ が 入り ます 。 40 行 で は , 255 個 の キャ ラク タ に 空 の デー タ を 定義 し ます 。 すでに 定 
таб тйяййт 1й1 -267-- 


義 ず み の キ ャ ラク タ は 未定 義 状態 と な り ま す 。 後 で 作っ た キャ ラク タ の デー タ が ここ に 書き 込 
まれ る わけ で す 。 

50 行 か ら 190 行 で は , キャ ラク タ を 作成 する と き の 画 面 (作成 画面 ) を 作っ て いま す 。 画面 は 
2 枚 あ っ て , 1 つ は 1 文字 分 (8X8 ド ッ ト ) の キャ ラク タ 作 成 用 の 小さ い 作 成 画面 。 も > 1 
つ は それ ぞ れ で 作っ た キャ ラク タ を 。, 任意 の コー ド に 定義 せ する た め の 大 きい 表示 画面 で す 。 

200 行 か 6250 行 が この プロ グラ ム の メイ ン ル ー チ ン で , 2 枚 の 画面 に カー ツル を 表示 し , キ 
ー 入 力 待ち に な り ま す 。240 行 で 入力 に 対す る 処理 の 飛び 先 を 指定 し て いま す 。 

ラベ ル 「PSET」 で は じ ま る 200 行 か ら 300 行 の ルー チン で は , キャ ン バ ス に キャ ラク タ を 描い 
て いく 〈 際 の 点 を 打つ 作業 を し , カー ソル 位置 や カラ ー の 判断 を 行ない ます 。 作成 中 の キャ ラク 
Я ( 枠 の 中 の 情報 ) は , 配列 P% に 格納 され ます 。 

310 行 か ら 400 行 は , 作成 画面 の カー ソル 移動 を 行なう サブ プ ル ー チ ン で す 。 上 下 左右 は も ちろ 
А, 右端 に きた 6 1 段 下 の 左端 に 移動 する , と いう 処理 も 行なっ て いま す 。 

410 行 , 420 行 び で は, キャ ラク タタ 定義 を する キー( リ ター ン キ ー) が 押 き れ だ た と き の 処理 を する 
も ので, 実際 の キャ ラク タタ 定義 は ラベ ル “DEF-CHR" の サブ ルー チン で 行なわ れ ま す 。 

430 行 か 6550 行 は , 大 きい 画面 の 方 の カー ソル 移動 を 行なう サブ ルー チン で す 。 先 に 述べ ま 
し た よう に , この 画面 の カー ソル を 動か すこ と で 任意 の ユー ド に , 作成 画面 で 作っ た キャ ラク 
タ を 定義 せ する こと が で きま す 。 

56017, 570 行 では キャ ン バ ス を クリ ア し , 同時 に 配列 P% も クリ ア (初期 化 ) し ます 。 

1000 行 か ら 1090 行 が 実際 の キャ ラク タ 定 義 シ ー チ ン で す 。 こ こ で の 作業 を 簡単 に まとめ る と , 
配列 P% に 格納 され た 8X8 ド ッ ト 計 64 個 の デー タ (0 一 8 の パレ ッ ト コ ー ド ) を , 2 進数 3 桁 
の デー タ に 変え 192 個 の 文字 列 を 作り ます 。 次 に この 文字 列 を 各色 (Ж, 緑 , 青 ) の デー タ ご と 
に 分 け , 配列 B$ に 格納 し ます 。 この 作業 は 1030 行 か ら 1050 行 で 行なっ て いま す 。 配列 B$ の デー 
タ は 16 進 に 変換 され, 最後 に HEXCHR$ で 定義 され ます 。 | 

1100 行 か ら 1140 行 の 「COPY」 ル ー チ ン で は , “DEF-CHR” Е ОЕР UT u i+, 230, 
定義 ずみ の キャ ラク タ を 配列 P% に 取り 込み キャ ン バ ス に 表示 る せま す 。 

1200 行 か ら 1300 行 で は , 作成 し た キャ ラク タ の デー タ を DATA 文 と し て この プロ グラ ム に 書き 
加え ます 。DATA 文 は 2000 行 以降 に 書か れ ま す 。 

以上 が プロ グラ ム の 大 ま か な 説 明 で , 細か い 部 分 に つい て は あな た の 研究 課題 と し て くだ き 
bs. 

次 に この ブログ ラム の 使用 方 法 を 説明 し まし ょ う 。 プ ログ ラム を 走ら せる と , 現在 の デー タ 
を クリ ア す る か どう か を 聞い て きま す 。 YES な 6y, NO な ら n を 押し て くだ きい 。y が 押さ る れる 
と , これ まで に 定義 し た キャ ラク タ を クリ ア し て 初期 状態 に 戻し ます 。 

画面 は 変わ っ て , 大 き な 枠 と 小さ な 枠 が 表示 され , 2 つの 画面 に は カー ツル が 点 減 し ます 。 
小さ い 方 は キャ ラク タ 作 成 朋 の キャ ン バ ス で , 大 きい 方 は 作成 し た キャ ラク タ を 表示 し , 定義 
する 画面 で す 。 

キャ ン バ ス は , 1 文字 分 の キャ ラク タ (8X8 ド ッ ト ) を 拡大 し て 見 て いる こと に な り ま す 。 
カー ソン ルキ ー を 使っ て カー ソル を 移動 し , 0 一 7 の 数 字 を キー イン し ます 。 す る と カー ソル の 
ある 位置 に , 数 字 に 対応 する 色 の 点 が 表示 され ます 。 同様 に し て , 好き な 色 で 好き な キャ ラク 
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付 録 


タ を 作る こと が で きま す 。 キ ャ ン バ ス に キャ ラク タ を 描き 終わ っ た ら , 大 きい 画面 の カー ソル 
を キャ ラク タ を 定義 する コー ド の 位置 に 移動 きせ ます 。 表示 画 面 の カー ツル は アル ファ ベッ ト 
キー を 使っ て 動か し ます が , この と き 必 ず 小 文字 (CAPSLOCK キ ー を 解除 する ) に し て くだ きる 
い 。 キ ャ ラク タコ ー ド は 16 進 2 с, 画面 の 上 に 表示 し て いる 数 字 が 上 位 の 桁 , 左 が 下位 の 桁 
ЄЗ 

リタ ー ン キー を 押す と , 画面 に キャ ン バ ス で 作っ た キャ ラク タ が 1 文字 分 の 大 きる で 表示 さき 
れ , 同時 に キャ ラク タ 定 義 も 行なわ れ ま す 。 画面 下 に は , その キャ ラク タ の デー タ が 表示 され 
ます 。 7 

同じ キャ ラク タ を いく つも 定義 し た り , 定義 ギ ずみ の キャ ラク タ を 修正 し た りす る と き は , 大 
きい 画面 の カー ツル を その キャ ラク タ の 位置 に 移動 きせ , [Cd] キー を 押し ます 。 す る t, 画面 の 
キャ ラク タ が キャ ン バ ス に 転送 る きれ ます か ら , そこ で 修正 , 再 定義 を 行なっ て くだ さい 。 
キャ ン バ パス を クリ ア す る とき は [し SHIFT JH oe |C 行 な いま す 。 また , 定義 ずみ の キャ ラク 
タ を 取り 消す と き は , 空 の キャ ラク タ (作成 画面 を シク リア し た も の ) を その コー ド へ 定義 する 
こと で 行ない ます 。 

最後 に [0] キ ー を 押す と , この プロ グラ ム の 2000 行 以降 に 定義 し た キャ ラク タ の デー タ が DATA 
文 と し て 書き 込ま れ ま す 。 こ れ を カセ ッ ト な ど に セー ブ す る こと で , キャ ラク タデ ー タ を 保存 
する こと が で きま す 。 
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jk 
[уч] 
т 


CAI っ て な ん だ 7 


ラマ ソコ ン の 持つ た くき ん の 可能 性 の 中 で も 最近 は , 教育 や 学習 に 使え る と いう こと が 注目 る 
れ て き て いま す 。 こ の 項 で は 教育 し と コンピュー タ の 可能 性 を る ぐり ながら , 学習 プロ グラ ム 作 
り に も 挑戦 し て いき まし ょ う 。 


CAF 一 一 ちょ っ と 聞き な れ な い 言 葉 で す 。CAI と は Computer Assisted шзиисНопо KT, 
つま り 「 コ ンピュータ を 用 いた 教育 シス テム 」 の こと な の で す 。 

この 言葉 その も の が まだ あま り 知 られ て いな いよ うに , 日 本 で CAI は あま り 普 及 し て いま せん 。 
し か し , CAI が まっ た く 〈 く 行 な われ て いな いと いう わけ で は あり ませ ん 。 中 学校 や 大 学 な どの 教育 
の 現場 で も 実験 的 に 行なわ れつ つ あ り ま す 。CAI の 先進 国 は , や は り コ ンピュータ の 故郷 アメ リ 
カ で す 。 ニ ュー ヨー ク 州 な ど で は , М 中 学校 の すべ て の 生徒 に 1 人 1 台 の コン ピュ ー タ を 与 
える と いう 目標 を 立て て いま す 。 フ パッ コン の 人 為 速 な 普及 に と も な い , 日 本 で も 発展 が 期待 され 
る 分 野 と いえ ます 。 

コン ピュ ー タ を 用 いた だ 学習 で は , 同じ こと を 何 度 で も 繰り 返し て 学べ さる と いう 特徴 が あり ま 
す 。 ま た , 学習 者 が 自分 の ペー ス で 学習 を 進め られ る と いう 2 特徴 も あり ます 。 パ ソコ ユン が 先生 
で あれ ば , 出題 も 採点 も 自動 的 に や っ て くれ ます 。 ゲ ー ム を 取り 入れ て 楽し みな が ら 勉 強 で き 
る プロ グラ ム を 組む と , も っ と 良い で し ょ 3o 

それ で は , ゲー ム 形 式 で ちょ っ と 楽し い 英 語 の 学習 プロ グラ ム 作 り に 挑戦 し て み ま し ょ う 。 

〔 プ ログ ラム 10 - 3 〕 


ið INIT:CLS 4:WIDTH40:GOSUB &@@@й 

28 LOCATE 5, 1B:PRINT"1 エイ タラ ヨド >> 2жу2° "LOCATE 5, 12:PRIN 
тте ご が ボコ に 229 ェ イ タン コ "LOCATE 0, 20:PRINT" < Push 1-2 
Key To Start > #4 

за АФ-ІМКЕҮФ:ІС АФ= "1" ОК АФ= "2" THEN ОМА (A$) :CLS:GOTO 40 ELSE 
сото за 

40 RESTORE 20006 

58 B=" -"+STRING$ (38, "-")3 +" "+" M +БТЕТМСВ (38, " "y+" ! "+" L" +STR ING 
%(38, "-") + "а" 

68 IF Асі THEN С%=" 9я“ 2 TATI спра“ ナオ シテ サイ “ ELSE 

C=" キャ ブナ ERAT Ə Иа" ナオ シナ ザイ ы 

70 В3-! ЕЕ Тъ «въ, 41) +C$+RIGHT%* (85, 41) 

80 С. 5: РК ТУТЕЗ:, ОСАТЕ й, 1B:PSINTSTRINSS$ (40, "—") : СОМВОГЕ 3, 15: ККа 


100 < 

118 CLS:READ 0Е%, АМФ: ІГ Q=2 THEN SWAP OES, АМФ 

115 ТЕ QE$="END" ТНЕМ END 

128 LOCATE 5.5:РКІМТОЕФ 

130 LOCATE 1й, 2: INPUT NAS 

140 ТЕ АМ®=МАФ THEN TR=1 Е: ЗЕ TR=@ 

150 560508 10000 

168 IF TR=1 THEN で 丁字 = リセ イカ イリ ELSE ТТФ-"т»ле А" 

178 LOCATE 24, 14:PRINTTT$:; :PAJSE 38:CLS3:INIT:CONSOLE 3,15 
180 IF TR=1 THEN 18088 

190 ТЕ Q=2 THEN SWAP ДЕФ, АМФ 

208 CONSOLE 0,25: Ј= (КК-1) MOD 5:1=(KK-J-1)¥5:LOCATE 1жай, 7+ 19: 
PR INTSTR 1 чсъсгв," "); 


za г сейтаййя 118 


ff в 


210 (ОСАТЕІж20,/77%19:РБІМТОЕФ; : ККЕКК + 1: ТЕ KK>10 THEN KK=1 
228 CONSOLE 3,15:60Т70 108 


9999 ЕМ 

10000 “ 

100108 CGEN 1:1 ОСАТЕ 5, 15:PRINT8#0CHR$ (17, 33, 49) 
100920 LOCATE 4, 16:PRINTHOCHRS (0, 18, 34, 50) 
1080380 LOCATE 5, 17:PRINTHOCHRS (19, 35,51) { 


10048 GOTO 100780 

10050 SDLNDé, 5: з0имо?, 247 : SOUNDS, 14: SOUUND 11, й: SOUND 12, 18: SOUND 13 
5 9 :RETURN 

10060 FOR 1-8 TO 20:МЕХТ :GOSUB 10050:FOR 1:0 ТО 35:NEXT: SOUND 
8,0: RETURN 

10070 PAUSE 20 

10080 FOR L=0 TO 4 

10090 FOR 7-68 TO 24:А= CJ MOD 2) +1+LX2:LOCATE 4, 16:РЕ1МТ#@СНЕ% (A) 
:GOSUB 10060:МЕХТ 

10100 NEXT 

10110 LOCATE 4, 1S:PRINT#8CHR* (12) 

10120 GOSUB 10210 

10130 LOCATE 7, 14:PRINTHOCHRS (11) :РАЦЗЕ 3:LOCATE 7, 14: РЕТМТСНЕЗ С 

зг) 

18148 LOCATE 8, 13: РЕТМТВВСНЕ В (11) : PAUSE З:| ОСЕТЕ 8, 13: РКТМУТСНКУ ( 

зг) 

10150 FOR 1=9 ТО 20: ОСАТЕ I, 13:PRINT#08CHRS (11) :PAUSE З:Г ОСАТЕ I 
з 13: РЕТКТСНЕ (32) NEXT 

10168 LOCATE 21, 13:РРІМТЯЯСНЕФ (11) 

10170 FOR 1=9 ТО 3:LOCATE 21+1, 13+ 1: РЕТМТ#ОСНК (11) 5 :РАЦЗЕ 2: ОС 
ATE 21+1, 13+ 1: РЕТМТСНЕЗ (32) $ : NEXT 

10180 LOCATE 25, 17:РЕІМТ#ВСНЕФ (11); :РОЅІТІОМ 187, 115:COLOR 2: РКИ 
4: РАТТЕКМ -32,ҒІФ:60508 10210:ҒОБ 10 ТО 16:85 (І MOD 2) + 1: РА ЕТ 
2, А: РАЦЗЕ 3:NEXT 

10190 SCREEN ð, 0, 3: IF TR=1 THEN CIRCLE (201, 130), 12,3 ELSE LINE (1 
90, 128) - (210, 140), РЗЕТ, 3:LINE (219, 120) - (198; 148), PSET, 3 

10200 LOCATE 25, 17:РВІМТ" "1; :С.81:С| 52: Сб6Ем @:COLOR7: RETURN 
10210 SOUNDé, 31:SOUND7, 246: З0ПКОЙ, 255:500М01,15:500М08, 16: SOUND 1 
1, 255: 500М0 12, 255 :500М0 13, 0: RETURN 

20000 ОАТААРРІЕ, 71“, BOOK, жо, ВОХ, N1, COFFEE, 2-Е -, DESK, #7т, FISH, サカ 

7, HIGH, タカ ガイ 。 LONG, 77" АХ, MORNING, PY, MUSIC, 7277“ 7, PARK, 2212, КООМ, ^P, SN 

Ой, 1%, SUMMER, 727, WALL, 27“, END, ЕМО 

68080 RESTURE る 69929iFUR I=0 ТО 11: ВЕАО АФ: ОЕЕСНК В (1) =НЕХСНЕ% (A$): 

NEXT 

60010 FORI=1TO3:FORJ=1TO3:READA$: DEFCHRS (IX16+J) =HEXCHR% (A$) : NEX 

TJ, I 

608011 READ Н%Ф:ҒІФ-НЕХСНРФ(НФУ):БЕАО H*:F I$=F I$+HEXCHR$ (HS) : RETURN 

60828 DATA B0495605697B83F07D00056050850733F07000908560946054607383F0700, 000G 

A&084&40783F0708F9F0F06987S3F8070885608S0EBS0783F07080, 000803030383Ғ 68700787 

87830383F 979959287939383F 0700 

60030 сата B0000808460783F070000F0F0F0783F070000ñ5ñ850EB783F07080, 08000 

0030383F078080800873878783383F 07BDB8B80502878383F 0700, 0000000003 1Е0=00208 
870F0F87F4F002080S0560583F4F8B00 

600408 DATA 0D0808000D80880801F1F9082C8S078F8787F3FC0248050698583F 1°80, 0006 
аввавввтотвавввагггасазсзвзЕосйаггваввв1агғітав. #0900000900070300005 

02018FC3F7FB400500008742F57A0 

&0050 DATA B0000080008D01010000021208076F0F3708002100808054B808522, 0000 

вававайта : айййй4 24 1967 ロ F6F 0у700йдаг000450в4502, ававвввававввваввеав 
дз85й5 05 ЯВЯВВЗС7ЕЕРЕСЕРЕЕ ?ЕЗС 

6080868 DATA D080080000901020870F09000000000000980009009080018083070F, 1F1F 

B3F7F7FFFEFFFF0008Bp00800B08008090D081F1F3F7E7CFCF8F8, FF7F7F7EF7FFFFFFF081 
ргай4 й4 азазававз7 0504 040398 AA 

60070 DATA 0£4&61F3F7F8FFFFFFFFF88000080000000000461F3F7FFFFFFFFF,FFFF 

ЕЕ?Е1ҒЙЕОЕОКЕО0ОООдЙЕОЕКОКЙФОӘКЕЕСОЕО7070830301; SEEFEEFEFFEFFFFF828 
101000аайайаайз0101000айасайаа 

50080 DATA 80ЗдЕЙРЗЕСЕСЕСРСОООООАООООООООООООВЙЕЙЕВЕСЕСЕСЕС,; FSF O 
ЕдЕдЕОСОВОЗВОООООООООФОООООООаОРКЗСОРОЕЙЕОСОВ 080, 0000 008080Сс0Сс8Сс08008 
0009808040408000808080804084080 
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63008 оатаавааввавававасве ав OF вв OF ак @F ВЕ ВЕ 1707 8787ЕЗ7В7ЕЗЕЗЕ 1F OF 
97939999999 191939397979F ВЕОЕОЕСЕБЕРСЕРЕЕСЕРЕСЕБЕРЕРЕЕЕЕРЕЕЕЕЕЕЕР 
FFFFFF3F99 
630818 DATA9689C9C9E9F 1FBFBFFFFFFF ビ ビビ F ビ ビビ FFFFFFFFFFFFFFFFFFFFFFFF 
FFFFFFFE 0020606 0E の E @E 1E3E7EFFFFESFEFEFEFEFEFCFDFFEFFFFEFEFEFEFEFC 
FE9899999 


СВ, プロ グラ ム の 説明 しま しょ う 。 ま ず フ ロー チャ ー ト ( 図 10 - 4 ) を 見 て 《 く だ さい 。 
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出題 形式 の 選択 


CAI を 実現 する た め の プ ログ ラム の 基本 的 な 構造 が 示さ れ て いま す 。 フ 
ロー チャ ー ト に 合わ せ て リス ト を 解説 し て いき まし ょ う 。 

初期 設定 は 10 行 お な よび 60000 行 か な ら は じ ま る サブ ルー チン で , こ こ で 
в, 画面 設定 お な よび キャ ラク タタ 定義 を 行なっ て いま す 。 

続く 20 行 , 30 行 で 「 出 題 形 式 の 選択 」 を し ます 。 こ の プロ グラ ム で 
в, 英語 か ら 日 本 語 , 日 本 語 か ら 英 語 の 2 と お な り の 学習 方 法 が あり ま 
す 。 

次 に , 画面 を 描い て いる の が 50 行 か ら 80 行 で す 。 先 に 選択 し た 学習 
方 法 に 従っ て 問題 文 を 表示 し ます 。 

100 行 か ら 220 行 が メイ ン ル ー チ ン で す 。110 行 で 問題 の 読み 込み (20000 
行 の DATA 文 より ), 120 行 で 問題 表示 , 130 行 で 解答 の 入力 , 140 行 で 
正調 の 判定 を し て いま す 。140 行 の TR は , 解答 が 正解 か 不正 解 か を 示 
す 変 数 で す 。150 行 で , 初期 設定 で 定義 きれ た キャ ラク タ を 表示 する サブ ルー チン (1000041) 
へ 飛び ます 。160 行 か ら 170 行 で 「 モ イカ イ 」,「 マ チ ガ イ 」 の メッ セー ジ を 表示 し , 不正 解 の 場 
Alk, 190 行 か ら 220 行 で 画面 下 に 誤っ た 単語 を 表示 し ます 。 こ の と き , 単語 を 順序 よく 並べ る 
た め に KK と いう 変数 を 使っ て , 不正 解 の 数 を な えて いま す 。 再 び 100 行 に 戻っ て , メイ ン ル ー 
チン が 繰り 返る れ ま す 。 

この プロ グラ ム で 使わ れ て いる キャ ラク タ は , 大 砲 に 砲弾 , 導火線 に 爆 煙 の 4 キャ ラク タ て , 
ュー ド 0 一 10 に 導火線 , 11 に 砲弾 、 17 一 19。 33—35, 49-510 9 つの ユー ド に 大 砲 の キャ ラク 
タ が 定義 きれ ます 。 また , 爆 煙 は 32X32 ド ッ ト の 図形 で 32 メ 32 エ 8 三 128 バ イト の デー タ と し て 
変数 FI$ に 格納 され , 画面 に は PATTERN 命 令 で 表示 る きれ ます 。 こ れ ら の キャ ラク タ 定 義 は 60000 
行か ら は じ ま る サブ ルー チン で 行なわ れ , キャ ラク タデ ー タ は 60020 行 以降 に 書か れ て いま す 。 

キャ ラク タ の 表示 は 10000 行 か ら は じ ま る サブ ルー チン で 行なわ れ , 同時 に 効果 音 も 出し て い 
ます 。 ここ で 注意 し た い の が , PRINT# 0 と いう 命令 で す 。 例 えば , PRINT# 0 СНАФ(12) と $ 
¿ と, ユー ド 12 に 定義 きれ た キャ ラク タ を 表示 する こと が で きま す 。 と ころ が PRINT CHR$(12) 
と する と, 画面 を クリ ア す る 命令 で すね 。PCG で 定義 し た キャ ラク タ を 表示 する と き は , この 
点 に 気 を つけ て プロ グラ ム し て くだ さい 。 

細か い 部 分 の 説明 は 省略 し まし た 。 後 は プロ グラ ム を 実行 し な が ら 確 め て くだ さい 。 

ここ に 取り 上 げた プロ グラ ム は , CAI の 1 つの 例 に し か すぎ ませ ん 。 最 初 に あげ た フロ ー チ ャ 
ー ト を 手がかり に , あな た 独自 の プロ グラ ム を 作っ て みる の も いい で し ょ う 。 まずは, 参考 ま 
で に プロ グラ ム を 走ら せ て くだ さい 。 


簡易 ワー ドド プロセッサ 


X1 で 扱え る 文字 キャ ラク タ に は , RAF, カナ , グラ フィ ッ ク 文 字 (図形) な ど が あり ます 
が , 漢字 ROM (オプ ショ ン ) を 本 体内 に 取り つけ る こと で 漢字 を 扱う こと も で きる よう に な り 
21. 

そこ で , この 漢字 キャ ラク タ を 使っ て 簡単 な 日 本 語 ワ ー ド プロ セッ サ , 名 付け て 「 簡 易 ワ ー 
ド プ ロ セ ッ サ 」 を 作っ て み ま し た 。 

ワー ドブ プロセッサ (略し て ワー プロ ) と は , F, か な 混じり の 文書 を 「 作 成 」,「 訂 正 」,「 編 
Жі, 「 印 刷 」,「 保 存 」 す る も の で す が , X1 で も プロ グラ ム 次 第 で ワー プロ に 早変わり し ます 。 
た だ し , 簡易 型 し いう こと な の で , 専用 機 の カナ 漢字 変換 な どの 機能 は な く , 漢字 の 入力 は JIS 
漢字 コー ド で 入力 し ます 。 ま た , ТЕПЕ, 編集 」 に つい て は BASIC 同 様 , カー マッ マル コン トロール 
キー, DELETE キ ー, CLR キ ー を 使っ た スク リー ン エ ディ タ で 行ない ます 。 

⑧ 使 用 法 

プロ グラ ム の ロー ド が 終わ っ た ら 6, 文書 保存 用 の 生 テ ー プ , ある い は ディ スケ ッ ト を セッ ト 
し た 後に RUN る せま す 。 

数 秒 後 , プ ブルー の 文書 作成 画面 が 表示 され ます 。 作成 画面 は , 1 画面 1 ページ と し て 3 ペー 
ジ 用 意 き れ て いま す 。 現在 表示 中 の ペー ジ 数 は 画面 左下 に 表示 され ます 。 

1 ペー ジ の 構成 は , 横 37 文 字 X 縦 10 行 で , カー ツル キー を 使っ て 任意 の 位置 に 文字 を 書く こ 
と が で きま す 。 各 ペー ジ は 画面 で は 別 で す が 実 際 に は 上 下 に つなが っ て いる と 考え て くだ さい 。 
カー ソル が 表示 ペー ジ の 右 下 に きた ら , 次 の ペー ジ ( 3 ペー ジ の 場合 は 1 ペー ジ ) の 先頭 に 移 
動 し ます 。 


< 各 キ ー の 説明 > 
o [А] ~ Z] #— 

小文字 の a 一 2。 また は [ SHIFT ] キ ー を 使う と 大 文字 の AZ が 表示 され ます 。 
o 了 カナ | キー | 

ひら が な を 表示 し ます 。[CTRL |+ X] キー で カタ カナ 表示 に 切り か を る こと が で きま す 。 
O [GRAPH] キー 


プロ グラ ム 中 で 設定 され た 漢字 を 表示 し ます 。 プ ログ ラム の DATA 文 を 変更 する こと で , X 
字 を 変え る こと も で きま す 。[CTRL ]+ 図 キー で 各種 記号 表示 に 切り か わり ます 。 
O[ DEL | キー, カー ソル コン トロ ー ル キー 

BASIC の 場合 と 同様 な 働き を し ます 。 
o [ CLR |・[ HOME ] キ ー 

これ ら は 各 ペ ー ジ ご と に 働き ます 。 [| CLR | キー に つい て は , 安全 の た め “Are You Sure(Y/ 
N)" の メッ セー ジ が 出 ま す の で , Y か N で 答え て くだ さい 。 Y の 場合 , 表示 中 の ペー ジ の み ク リ 
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ア さ る れ ま す 。 
o[ CTRL | キー 
以下 の キー と 合わ せ て 使い ます 。 
土田 キー DEL と 同じ 
+[K]#*#— HOME と 同じ 
+L- CLR と 同じ 
+[P]|&— ペー ジ 1~3 を プリ ンタ に 出力 
+ 回 キー JIS ュ ー ド … 漢 字 変 換 
“CODE" を 表示 し 入力 を 求め て きま すか ら , 表示 し た い 漢 字 の JIS ユ ー ド を 入 
力 す る と , カーン ソル 位置 に JIS ュ コー ド に 対応 する 漢字 を 表示 し ます 。 
寺町 キー 3 ペー ジ 分 の 文書 を テー プ , また は ディ スケット に SAVE す 5, 
“FILE NAME" と 表示 る れる の で 任意 の ファ イル 名 を つけ て 《 だ さい 。 
+ キー 文書 を テー プ , また は ディ スケ ッ ト か ら LOAD す る 。 
SAVE し た 文書 の ファ イル 名 を 指定 し ます 。 


く プ ログ ラム の 説明 > 

この プロ グラ ム に は 重要 な ポイ ント が 2 つ あ り ま す 。 その 1 つ で ある 漢字 (ひら が な , カタ 
カナ ) 出力 に つい て 説明 し まし ょ う 。 

キー ボー ド か ら 入 力 さ れ た 文字 (コー ド ) は 180 行 で コン トロ ー ル コー ド か どう か を 判定 され 
ます 。 コ ント ロー ルコ ユ コー ド で な けれ ば , JIS コ ユー ド と し て 変数 A に 格納 され ます 。 

この JIS コ ユー ド を 文字 に 変換 し て 表示 し て いる の が 300 行 で す 。 これ 以前 に も , ひら が な や カ 
タカ ナ の 場合 の 操作 や , 行 単位 で 配列 に 格納 する な どの 処理 が 行なわ れ て いま す が , ここ で は 
説明 を 省略 し ます 。 

ST, 300 行 を 見 て くだ さる い 。 JIS コ ー ド か ら 文 字 を 得る に は KANJI 関 数 と いう も の を 使い ま 
+, KANJI$(A で JIS ユ ュー ド A に 対応 する 漢字 の パタ ー ン ( 縦 16X 横 16 ド ッ ト ) の コー ド を 得 ま す 。 
сив, ドッ ト パ タ ー ン (8 X32 ド ッ ト ) で し か な い の で , POSITION, PATTERN 文 と 共に 使わ 
な けれ ば な り ま せん 。PATTERN 文 は コー ド 化 8 きれ だ ドッ トバ パタ ー ン (関数 KANJI$ で 得 た ユー ド ) 
を POSITION で 指定 し た 位置 に 表示 する ステ ー ト メン ト で す 。 これ に つい て 説明 し まし ょ う 。 


10 CLS:A$=KANJI$(&H7F1):PATTERN -16, A$ 
28 FOR I=0 ТО 31 
за LOCATE <I ¥ 142ж8,1 MOD 16+3 
48 PRINTRIGHT 和 を ("9999999"+ 日 IN も て QSC (MIDS (АФ, 1+1, 15)59, 8) 
58 МЕХТ: INIT 
68 НСОРҮ 4 

KANJI$ は , 32 文 字 (コン トロ ー ル コー ド を 含む こと も ある ) の 文字 列 か ら な り , 1 文字 が , 
横 8 bit 分 の 点 を 表わし ます 。 例 えば KANJI$(&HZF1) の 第 1 文字 は @ で , これ の ASCII コ ー ド は & 
H40 で す 。 こ れ を 2 進数 に 直す と 01000000。, と な り , 図 10 - 5 の A の 部 分 の 点 を 表わし ます ( 図 


10 - 6 は KANJIS(&H7F1) の 文字 を プリ ント し た も の で す )。 
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380 POSITION жж17+4, YX17+é:PATTERN -16, KANJ I$ (А) :X=X+1:IF Х>36 Т 

НЕМ X=0ü:Y=Y+1:IF Y>? THEN P=P+i:GOSUB "РАбЕ":Х-0: Ү-0 

318 FETURN 

320 LABEL "CURSOR" 

330 J=Xxi7+4:K=YX17+22:LINE (J, Ky - (1+ 14, К), РЗЕТ, Рж1. 4:L INE (J, K> - < 

7%16,К>2, PRESET, PP iRETURN 

340 LABEL "KEY IN" 

2508 B*(0>=INKEY#:B#(1>=RIGHT$ ("0000008"+BINS$XASC (INKEY$ (2))),8) 

368 IF МІОФ‹ВФ(1),2, 1) ="1" THEN F=9iRETURN ELSE F=-1:RETURN 

378 LABEL "PAGE":IF P>3 THEN P=1 ELSE IF Р<1 THEN Р=З 

380 PP=P:INIT:COLOR 1,1:1 ТМЕ с, й) - (797, 24), CHR$ (8.Н87), BF :COLOR 7: 

LOCATE й, 24:РЕІМТ Р; 

390 РОК I=0 ТО 37:.1-1ж17+4: IF I HOD 5=9 THEN К=4 ELSE К=2 

4208 LINE (J,0)-¿(J К), РЗЕТ, Ржі. 4:1 ТМЕ (J, 188-К)- (J, 1802, РЗЕТ, Ржі. 

4: NEXT 

418 ON P GOTO 4гй, 43й, 44й 

420 SCREEN ,, 1:LAYER 2, 1,4,3: КЕТОКМ 

430 SCREEN ; 21 АҮЕР 2, 4, 1, 3: КЕТОКМ 

440 SCREEN ,) 3:LAYER 2,3,4, 1: КЕТОКМ 

458 LABEL "00": ВВЕ "81": АВЕ "82": АВЕ "03": 2ВЕ "94": АВЕ 
"85": АВЕ1 "94": АВЕ "07":1 АВЕ "09": АВЕС "Ва": АВЕ "80": ав 

EL "ВЕ": АВЕ "ВЕ": АВЕ "12": 2ВЕ "13": АВЕ "15": АВЕ "14": 

ABEL "19 "г аве "iA":LABEL "1B" 

460 RETURN 

478 LABEL "@3":GOSUB "1D":IF _ЕМ‹АФ‹Р-1, Ү) 2 >Хж4 THEN АФ‹Р- 1, Ү) = 

LEFT АФ «Р-1, Y); Хж4) +RIGHTS САФ (P -1, Y), СЕМ «а в ‹Р-1, Y))- (Х+1) ж4) : YY 

=Y:XX=X:GOSUB "DISP L":Y=YY:X=XX 

480 RETURN 

дей LABEL "ØB":X=0:Y=0:RETURN 

500 LABEL "ƏC":LOCATE З, 24: ІМРОТ "Аге You Sure (Y/N) "+СНЕФ (5), I$ 
:ІЕ 1%<›"Ү" THEN RETURN р 

518 LABEL "@C1":FOR I=0 ТО 9:АФҰР-1,12-77%:МЕХТ:СІ 6 Р:РР=0: 60508 
"PAGE" : CONSOLE 24, 1: Х=0: Үс0:БЕТЦЕМ 

520 LABEL "10": НСОРУ1 : НСОРҮ2 : НСОРҮЗ : RETURN 

530 LABEL "11":С0М501Е 24, 1:1 ОСАТЕ 4, 24: INPUT "CODE ", 2%: A=VAL (Z 

Ф):1ОСАТЕ 0, 24: РЕТМТ P;CHR$ (5) ; : БСОТО "DISP 1" 

540 LABEL "14":CONSOLE 24, 1:1 ОСАТЕ 4, 24: INPUT "FILE NAME " +CHR$ (5 

У: МАФ: ОРЕМ "О", #1, МАФ 

550 FOR 1-й ТО 2:FOR J=0 TO の iPRINT #1, АФ СІ, J} : НЕХТ: МЕХТ: CLOSE:L 

ОСАТЕ в, 24: РЕТМТ P; :RETURN 

560 LABEL "17":CONSOLE 24,1:10САТЕ 4,24:INPUT "FILE NAME " +CHR$ (5 

)SNA$:OPEN "I",#1,NA$ 

570 FOR 11-й TO 2:P=II+1:GOSUB"0C1":FOR JJ=0 TO の i INPUT #1, А%Х11 

з JI IF афстт, JJ) «2223 THEN Y=JJ:GOSUB "DISP L" 

580 МЕХТ:МЕХТ:С_05Е:Р= 1:1 ОСАТЕ й, 24:РКІМТ P;:X=80:Y=0:GOSUB "PAGE 

" : RETURN 

590 LABEL "i8":IF CH=9 THEN CH=1 ELSE CH=9 

る 99 RETURN 

610 LABEL "1C"iX=X+1:IF Х>536 THEN X=0:Y=Y+1:IF Y>? THEN Y=9:P=P+ 
1:GOSUB "PAGE" 

620 RETURN 

る 39 LABEL "1D"T:X=X-1:IF X く 9 THEN X=3é:Y=Y-1:IF Y< く 9 THEN Y=?:P=P- 
1:5060В "PAGE" 

6408 RETURN 

650 LABEL "1Е":Ү=Ү-1:1Р Ү<@ THEN Ү=9:Р=Р- і :60508 "PAGE" 

668 RETURN 

570 LABEL "1Е":У5У+1: ТЕ Y>? THEN Y=0:P=P+1:GOSUB "PAGE" 

680 RETURN 

6908 LABEL “DISP L ":Р1-Р: Х<й: РОК KK=9 ТО 34 :азуа (MID$ (A$ (P-1, Y>, 

Ккж4ж1,422:605МВ "DISP" : МЕХТ:Р=Р 1 RETURN 

700 LABEL "START":WIDTH80:DEFINT A-Z:CANVAS 4,4,4:CLS 4 

710 DIM КС<1,255;2,/4%(2,9):БЕ5ТОБЕ 760 

720 FOR 1-й ТО 25S:READ КС CB, I) :NEXT 
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730 РОК I=128 TO 255:READ КС 1,1) :КС (1, I-128)=KC (0, 1-128) :NEXT 
748 ZZ$=STRING$ (37, "8875"):ЕОК I=0 TO 2:FOR Ј=0 ТО 9:А% (1, Ј) =22% 
: НЕХТ: МЕХТ 

750 CLICK ОЕР : КЕТИЕМ 


760 DATA 0,0, Û, 0, й, O, й, 0, 0, ө, Û, Û, а, а, O, а 

778 DATA ð, й, 0, 0, O, 0, д, 0, а, Os Я, 8, 21, 211,212,213 

788 DATA 090, 118, 111, 184, 180, 183, 185, 113, 142, 143, 186, 160, 104, 161 
105,131 

7968 DATA 216, 317, 318, 319, 320, 321, 322,323, 324, 325, 107, 108, 167,165 
, 188,109 

800 DATA 187, 333, 334, 335, 336, 337, 338, 337, 340, 341, 342, 343, 344, 345 
, 346, 347 

510 DATA 348, 349, 350, 351, 352, 353,354, 355,354, 357, 358, 146, 179,147 
‚115,118 


820 DATA 114, 365, 366, 367, 368, 369, 370, 371, 372, 373, 374, 375, 376, 377 
|, 378, 379 

850 DATA 380, 381, 382, 383, 384, 385, 386, 387, 388, 389, 390, 148, 135, 149 
, 117,648 

840 DATA 1501, 1642, 1706, 1733, 1787, 1828, 2075, 226?, 2321, 2435, 2619, 
2737, 3153, 3204, 3324. 3430 

858 DATA 3545, 3637, 3666, 3738, 3864, 3883, 3908, 3909, 3921, 3935, 405%, 
4152, 4225, 4261, 4354, 4403 

868 DATA ййй, 103, 154, 155, 102, 106, 482,401, 403, 405, 407, 409, 467, 459 
, 471, 435 

€70 DATA 151, 482, 404, 485, 408, 418, 411, 413, 415, 417,417, 421, 423, 425 
з427, 429 

880 DATA 431, 433, 436, 438, 440, 442, 443, 444, 445, 446, 447, 450, 453, 454 
з 457, 462 

вга DATA 463, 464, 455,465, 448, 478, 472, 473, 474, 475, 476, 477, 479, 483 
з 111, 112 

сай DATA 4419, 4427, 44465, 4473, 4491, 4529, 45659, 4588, 4660, 4665, 4704, 
4733,0, 0,0,0 

9108 DATA 80, 0, 0,0, 0, Û, Û, Û, Û, 0, Û, 0, 6, 0, 0,0 

920 DATA 115,119, 122, 123, 124, 125, 126, 127, 128, 129, 130, 133, 134, 135 
з 136, 13? 

F36 DATA 138, 137, 142, 143, 144, 145, 150, 151, 152, 153, 156, 157, 158, 152 
, 162, 164 

940 DATA GGG, 183, 154, 155, 102, 106, 582, 501, 503, 505, 507, 509, 567,569 
‚ 571,535 

950 DATA 151, 582, 584, 506, 5Й8, 518, 511, 513, 515, 517, 519, 521, 523, 525 
|, つど 了 52? 

9680 бата 531,533, 534, 538, 540, 542, 543, 544, 545, 546, 547, 550, 553, 556 
, 559,562 

это DATA 563, 564, 565, 566, 568, 578, 572, 573, 574, 575, 576, 577, 579, 583 
111,112 

9808 DATA 166,169,17й0,171, 172, 173, 174, 175, 176, 177, 178, 181, 182, 183 
, 163,188 

998 DATA 189, 190, 291, 282, 293, 204, 205, 206, 207, 208,209,210,211,212 
‚213,214 
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| 
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第 2 文字 は [, |С, ASCII コ ユー ド を 20 進 数 に 直 (810- 5) 
+ と 00100111。。 となり, 図 10 - 5 の B の 部 分 Ta 
を 表わし ます 。 а 


PATTERN は , 文字 列 で 与え られ だ た ビット 
パタ ー ン (ここ で は KANJI$(&H7F1)) を , 画 
面 上 に 表示 する 命令 で す 。 そ し て 画面 上 の 
どこ か ら 6 表示 する か を 決め る の が POSITION 
で す 。 また PATTERN の 第 1 パラ メー タ で 表 


示し て いく 方 向 ( 負 の と き は 下 , 正 の と き ЧЕ ң š = 
は 上 方 向 ) と 段数 を 表わし ます 。 эвазазвврві キス キラ チッ 
も う 1 つの ポイ ント は , マル チ ス クリ ー ・ ЗЫН 622142212215 
2526: айдыр бабае 
ン を 使っ て いる こと で す 。 マ ル チ ス クリ ー BP: а: ТЕЕП ЖЕЗ 
ン (画面 ) モー ド で は , 3 枚 の グラ フィ ッ REH HASAN SORE 
ク 画面 (これ まで は , R, G, B の 3 画面 а EEE i : 
я пас КАГА Ë 
ほし て 扱っ て きま し た が ) に それ ぞ れ 8 色 STRAD 


の うち 1 色 ず っ 指定 する こと が で きま す 。 


(B10 - 6) 
@' ӘС" ЕСШ КНР ІНІ + d" "# + + PEt 


これ を 行なっ て いる の が , プロ グラ ム 700 行 の CANVAS 文 で す 。 CANVAS 文 は , マル チ ス クリ ー 
ン モ ー ド 時 に 各 ペ ー ジ を 表示 する 色 を 決め る も の で , 3 つの パラ メー タ が それ ぞ れ 1 ペー ジ か 
6 3 ペー ジ の パレ ッ ト コ ユー ド を 指定 し ます 。 CANVAS 4, 4, 4 で 3 つの グラ フィ ッ ク 画 面 の 色 
を カラ ー コ ー ド 4 ( 緑 ) に 指定 し て いま す 。 マルチ スク リー ン モ ー ド の と き は , SCREEN 文 の 3 о. 
目 の パ ラメ ー タ で , どの ペー ジ に 書き 込む の か を 指定 する こと に な り ま す 。 


指定 の パレ ッ ト コ ー ド で 書き 込む 
グラ フィ ッ ク 1 (1 ペー ジ ) に 書き 込む 


グラ フィ ッ ク 2 (2 ペー ジ ) に 書き 込む 
グラ フィ ッ ク 3 ( 3 ペー ジ ) に 書き 込む 


他 の プロ グラ ム で 、 3 番目 の パラ メー タ を 省略 し て いる の は , 0 を 指定 し た こと に な り , Z 
の 場合 は LINE 文 な どの 人 色 指定 が 有効 に な り ま す 。1 , 2, 3 を 指定 し た 場合 は , CANVAS 文 に よ 
от, 各 ペ ー ジ ご と に 指定 し た 色 で 書き 込ま れ ま す 。40 文 字 の モー ド の と き は , SCREEN 文 の 1 , 
2 番目 の パラ メー タ と の 組み 合わ せ で , 6 枚 の 画面 を 使う こと が で きま す 。 

画面 を マル チ ス クリ ー ン と し て 3 枚 独 立 に 使っ て いま す が , SCREEN の 3 番目 の パラ メー タ で 
モー ド 指 定 を 行なっ て も , 3 枚 の 画面 が 重なっ て 見 えて し まい ます 。 を そこで, 1 枚 目 と 2 枚 目 
の グラ フィ ッ ク 画 面 の 間 に , “ 画 " で 塗り つぶ し た TEXT 画 面 を 挿入 し ます 。 こ うす る こと て, 
2 枚 目 と 3 枚 目 の グ ラフ ィ ッ ク 画 面 が TEXT 画 面 の 影 に な っ て , 1 枚 目 の グラ フィ ッ ク 画 面 だ 
けが 見 える よう に な り ま す 。 こ の 表示 画面 の 重ね る 順番 (優先 順位 ) を 決め る の が LAYER 文 で 
Fa 
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LAYER 文 は , 
| LAYER + ф,92.93 
の よう に 書き ,。 4 つの パラ メー タ が それ ぞ れ テキ スト , グラ フィ ッ ク 1, グラ フィ ッ ク 2, ググ 
ラフ ィ ッ ク 3 の 優先 順位 に 対応 し ます 。 指 定 する 数 値 は , 1 一 4 まで で , 同じ 数 値 を 2 つ 使 う 
と エラ ー に な り ま す 。 こ の 処理 は プロ グラ ム 410 行 か 6440 行 で 行なっ て いま す 。 変数 P は 表示 し 
た い ペ ー ジ 番号 を る し ます 。 

細か い 処 理 し し て は , 450 行 に 未 使用 の コン トロ ー ル コー ド の 飛び 先 を 集め て , 何 も せ ず に メ 
イン ルー チン に 返し て いま す が , この ラベ ル を 使用 する こと で , あら た に 機能 を 追加 する こと 
が で きま す 。 

また だ , 作成 され た 文書 は , シー ケン シャ ルフ ァイル で 記録 きれ ます が , デー タ 書 き 込 み , ің 
み 出 し は , それ ぞ れ プログ ラム 540 行 , 560 行 で 行なっ て いま す 。 

を その他 に も る ま ざ ま な テク ニッ ク を 使っ て いま す が , それ は みな さる ん て 研究 し て くだ さい 。 
最後 に , 変数 表 を 載せ ます の で 参考 に し て くだ さい 。 

А: JIS コ ー ド 

S: 1 つ 前 に 入力 され だ JIS コ ユー ド 

А$(Р,Ү): P ペ ー ジ の Y 行 目 の JIS ュ ユー ド 

X : я 

ҮІ 


P : ペー ジ 
850): 入力 され た 文字 (キー ボー ド 上 の ) 
СН: カタ カナ , ひら が な の 区 別 


100 カン イ ワート" 2° D E 9 - 
110 
120 
130 
140 GOSUB "START" 

158 “ MAIN 

168 P=1:GOSUB "PAGE" 

170 REPEAT:POKE &HEA6, 255, 255:6GOSUB "CURSOR":GOSUB "KEY IN":UNTI 
L F 

180 MUSIC "0608":ІЕ B$(0)<CHR$(32) THEN 210 ELSE S=A:A=KC «СН, ASC 
(ВФ (0009 

198 IF (А=111 OR A= 112) AND 62418 AND 5<548 THEN GOSUB "CHANGE" 
209 GOSUB "DISP 1":GOTO 179 

218 ON ASC(B$(0))+1 GOSUB "вй", "01", "02", "ӨЗ", "04", "05", "06", "87 
ж, "93", ро“, "бА", "08", "OC"; "20", "OE", "ВЕ", "+9"; "11%; “ла”, “138”; sf 
4", "терт, "14", "174%; " 18", "9": "1А", "1B"; TC "15%. "Е", "Е": СОТО 1 
70 

220 LABEL "CHANGE":IF P=1 AND X=@ AND Y=@ THEN RETURN 

230 IF X=0 AND Ү=й THEN P=P-1:Y=16 

240 IF X=0 THEN Y=Y-1:X=37 

258 X=X-1:IF A=111 THEN A=S+1 ELSE A=S+2 

260 RETURN 

270 LABEL "DISP 1":1Е LEN(A$(P-1,Y))/4)X THEN MID$(A$(P-1, Y), X*4 
+1, 4) =RIGHTS с"адва" + тентъ (STRE (A), LEN (STRE (A))-1),4) ELSE A$(P- 
1, Y) =A$(P-1, Y) +RIGHTS с"вава" +R IGHT$ (STR$ (A), LEN (STR (A) -1), 4) 
280 LABEL "DISP":CONSOLE 24,1 

2 ヶ 9 IF PP<>P THEN GOSUB "PAGE" 
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(HOUSE) 


10 MIDTH49iSCREEN9』9 iCLS4 

20 WINDOW: GUSUB "HOUSE":GOSUB "FLAME" 

за LOCATE0, 23:COLOR7:PRINT"13p2274 --- 1. 217930 --- 2“; 

40 REPEAT:Z$=INKEY#$(1):UNTIL Z$="1" OR Z$="2" 

50 IF Z$="1" GOSUB"X2" ELSE GOSUB"/2" 

る 9 SCREENO, 08:50Т030 

70 LABEL "жг" 

80 LOCATEQ, 23:PRINTCHR$ (5) :LOCATEQ, 23:PRINT"SELEST 1 - 4"; 

90 REPEAT:A$=INKEY$(1):UNTIL Z$>"@" AND 2+< "5" 

108 SCREEN1, 1:С184 :0М VAL «ав» GOSUB 140, 150, 160, 178: GOSUB "HOUSE 
119 LOCATE0, 28:PRINT"Hit Any KEY" 

120 REPEAT:X$=INKEY$:UNTIL X$<>"" 

130 RETURN 

140 WINDOW са, 0) – (319, 199), (0,0) - (150, 100) : RETURN 

158 МІМООМ са, 0) - (319, 199), (160, 0) – (319, 100) :RETURN 

150 МІМООИ (В, й) - (319, 1992, (0, 100) - (160, 199) : RETURN 

170 WINDOW (0, 0) – (319, 199), (160, 100) - (319, 199) : RETURN 

189 АВЕ "/2" 

190 ГОСАТЕЙ, 23:РКІМТСНК%Ф(52:10САТЕй, 23: РЕТМТ"п?“ > 2 AF ? 2 - 6" 


s 

200 REPEAT: АФ= ІМКЕҮФ (1) UNTIL VAL (A$) >1 AND VAL САФ) <7 

210 N=VAL (A$) 

220 SCREEN, 1:CLS4:WHINDON (0, 02-<319/М, 199/3), са, 0) - (319, 199) :605 
UB "HOUSE" 

230 госатей, 28:PRINT"Hit Any KEY" 

240 REPEAT:X$=INKEY$:UNTIL ХФА»" 

250 RETURN 

260 END 

278 LABEL "HOUSE " 

280 LINE (190, 90) – (220, 178), РЗЕТ, 4, BF 

298 COLOR2:LINE (120,40) (299, 40) - (240, ?0)-(80, ?0)-(X120,40) 
300 PAINT (125, 45), HEXCHR 和 も ("99FF 1 1ВЯЕЕ4 4"), 2 

318 РАІМТ (195, 45) HEXCHR ま く ("99FF 1 1аВЕЕ44"), 2 

320 LINE (120, 110) - (170, 1402, РЗЕТ, 7, В 

330 LINE (121, 111? - (169, 1392, РЗЕТ, 0, BF 

340 LINE (120, 125) - (170, 125), РЗЕТ, 7 

350 LINE (145, 119) - (145, 1402, РЗЕТ, 7 

360 LINE (180, 110) - (210, 170), РЗЕТ, 1, ВЕ 

370 LINE (130, 20) - (150, 60), РЗЕТ, 6, BF : COLOR? 

380 RETURN 

390 LABEL "FLAME " 

400 LINE (O, 8) -(31?, 176), РЗЕТ, 5, B 

410 LINE (160, 8) (160, 176), РЗЕТ, S:LINE (0, 100) - (319, 108), РЗЕТ, 5 
420 LOCATE0, 1:PRINT"1":LOCATE20, 1:РКІМТ"2" 1 ОСАТЕӨ, 13:PRINT"3":L 
осатега, 13:PRINT"4" 

430 RETURN 


119 1ейй! 1яй 1 -281- 


(デマ LJ 


10 MIIDTH8B9:SCREEN9。 8:CLS4 
20 C=3 | 
50 XA=.5:YA=.6:ZA=ð0:R=120 


198 
208 
210 
220 
230 
2480 
250 
268 
270 
280 
290 
295 
399 
310 
320 
330 
509 
518 
520 
538 
5480 
558 
560 
570 
588 
590 
る 99 
る 19 
ら ど 9 
630 
ら 4 9 
る 59 
660 
670 
689 
690 
700 
710 
720 
730 
740 
750 
760 
779 
780 
790 
800 
810 


FOR XYZ=1 TO З 
FOR SS=0 TO 188 STEP 45 
FOR S=SS-8 TO SS+8 STEP 4 


G=0:READ С 

FOR TH=9 ТО РАІ (2) STEP РАІ (12/24 
ОМ XYZ 6050В "х", "Үү", "2" 

созив "КОТА" 

IF 23<0 THEN G=80:GOTO 280 
GOSUB "L INE " 

NEXT TH 

NEXT 5:МЕХТ 55:МЕХТ XYZ 


CIRCLE (320, 100), 68, 7 

END 

DATA 6, 6, 4, 6, 6, 7,5,3,5, 7, 5,3,2,3,5, 4,4,5,4,4, 2,2,4,2,2 
DATA 5, 1,5,1,5, 6,4, 6,4,6, 2,2,5,2,2, 4,4, 6,4,4, 7,6,4,6,7 
БАТА 7, 1,2, 1,7, 4,4,5,4,4; 6,4, 6,4,6, 5,3,2,3,5, 5,1,5,1,5 
LABEL "X" 

P=RAD (S> 

X=RXS IN CTH) жСО5 (P> : Ү-ЕЖСО5 CTH) : Z=RXSIN (CTH) жб INICP) 

RETURN 

LABEL "Y" 

P=RAD (52 

Y=R*S IN CTH} жС05 (P) :X=RXCOS (TH? :Z=RXSINCKTH)*SINCKP) 

RETURN 

LABEL "Z" 

P=RAD (5) 

Y=RXS IN CTH? XCOS (P?) : Z=RXCOS CTH) :X=RXS IN (CTH)? жб IN <Р) 

RETURN 

LABEL "ROTA" 

X1 =X 

Ү1-ҮжС05 (XA) -?2ж IN (XA) 

Z1=Y*S IN (XA) +ZXCOS (XA?) 

Ха =X1*C0S CYA) -21ж5 ІМ CYA? 


Y2=Y1 
Z2=X1*S IN CYA) +21жС05 (YA) 
хз-хгжсов8 (ZA) -Ү2ж5 IN (ZA) 
Y3=X2XS IN (ZA) +Y2xC0S (ZA?) 
23=22 

RETURN 

LABEL"LINE" 
6X=X3+320:GY=188-. 5※Y3 


IF GX く 9 OR GX>63? THEN G=0:RETURN 
IF GY く 9 ОК 6721779 THEN G=0:RETURN 
IF G=1 GOTO7?8 

LINE (GX, GY? - (GX, СҮ) , PSET, С 

LINE- (6X, GY), PSET, C 

6-1 

RETURN 


g= 1808811818 11% 


(百人 一 曽 ) 


10 MIDTH49:SCREEN1 1:С1 54:1 ОСАТЕ2, 12:CSIZE3:CFLASH1:COLORé:PRINT 
Нй"уаоуз2 49929594." 

100 Q ま ="FFFFFFFFFFFFFFFF 999999999999999955QA55QA55AASSAA" 
101 FOR 1=1 ТО 54:READ A:DEFCHR$ (А) =HEXCHR$ (Q$) : NEXT 
102 DATA 0, 1,6,7,8,9, 10, 16, 17,23, 24,25, 26, 33, 34, 40, 41, 42 48, 49, 5 
7, 58, 59, 60, é1, 62, 63, 64, 65 

103 DATA 74, 75, 76, 77, 78, 79, 80, 92, 93, 94, 95, 109, 110,111, 143, 144, 14 
5, 146, 147, 148, 149, 150, 157, 158, 159 

104 Q ま ="FFFFFFFFFFFFFEFEG999999999999999" 

105 DEFCHR$ (2) =НЕХСНЕФ (0%+ "55AA55AA55QA54 人 AA" ) 
105 Q ま ="FFFBE9C98949Q954999999999969F OFC " 

107 DEFCHR$ (3) =HEXCHR て Q 和 ま +"55QB498999 る 9F OFC") 
108 Q ま ="FF9F9391999999999999999999999999" 

10? DEFCHR$ (4) =HEXCHR$ (0Ф+ "55040 10000000000") 
110 Q も ="FFFFFFFFFF7F3F3F 9999999999999999" 

1 1 1 DEFCHR$ (5) =НЕХСНЕ% (Q$+"55AA55AA552A152A") 
122 QG$*$="EAESEAESEADS5CADSEFEFEFEFEFDFDFDF " 

123 ОЕҒСНКФ (11) =НЕХСНЕ% (Q*+"EFEFEFEFEFDFDFDF "> 
124 0%= "сА0584?544?524550ЕОЕВЕВЕВЕВЕ?ЕТ?Е" 

125 ОЕЕСНЕ (12) -НЕХСНЕ  (ОЪ+ "DFDFBFBFBFBF 7F 7F ") 
124 Q$="2A552A552A552A557F7F7F7F7F7F7F7F" 

127 DEFCHR$ (13) =НЕХСНЕФ (Q%+ "7ЕТЕТЕТЕТЕТЕТЕТЕ") 
128 Q*="2Q442A442A442A846 る E る ESE6E6E6E6EAE " 

129 DEFCHR も て 14) =HEXCHR$ (0%%"ЕЕЕ6Е6ЕЕЕАЕ"> 
130 Q*="EAE4EAE4EAF4FAFFEEEEEEEEEEF4FAFF " 

131 ОЕҒСНКФ (15) -НЕХСНЕ (05 + "ЕЕЕЕЕЕЕЕЕЕЕ4ЕВЕЕ") 
135 Q*="FEFEFFFFFFFFFFFF9999999999999999" 

137 ОЕЕСНЕ% (18) <НЕХСНЕЗ (Q%+"54AASSAASSAASSAA" ) 
138 0%= "45865 18255ЕАрБЅЕАСҒЕҒЕЗАЗЗТЗЕЗЕЗЕ " 

139 ОЕЕСНЕ% (19) =HEXCHR 生 Q 和 も +"CFFFF3C377BF7FBD ") 
140 Q$*="999989998949QB5S ア 99998989C9E OFSFF " 

141 ОЕЕСНК (20) =НЕХСНЕФ (G$+" 99998989C9E 9FBFF " ) 
142 Q*="1FOF979391992 る ビア 99999999999928D9" 

143 DEFCHR$ (21) =НЕХСНЕФ (0%+ " 1504050201 0038F8") 
144 Q$="FFFFFFFFFFFF7F3F0000000000000000" 

145 DEFCHR$ (22) =НЕХСНКФ (0%+ "55AA55QA55AA552Q" ) 
154 0%= "а55485588558й55ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ" 

155 РЕЕСНЕ (27) =HEXCHR$ (08 + "ЕЕРЕЕЕЕЕЕЕЕЕЕЕЕЕ") 
156 О%= "а455465544554055ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ" 

157 ОЕЕСНЕ (28) -НЕХСНЕ  (ОЪ+ "ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ") 
158 0%= "QA55AA55QAS5AAS5FFFFFFFFFFFFFFFF" 

159 DEFCHR$ (29) =HEXCHR 生 て Q も +"FFFFFFFFFFFFFFFF " ) 
168 Q$="AAS5AA45A245A245FFFFEFEFE7E7E7E7" 

161 DEFCHR$ (30) =HEXCHR$ (Q$+"FFFFEFEFE7E7E7E7") 
162 Q$="A245A245A248AD5FE7E7E7E7E7EAEDSF" 

163 DEFCHR$ (31) =НЕХСНЕФ (Q$+"E7E7E7E7E7EAEDSF") 
164 Q ネ ="99999999999999999999999999999999" 

165 DEFCHR$ (32) =HEXCHR$ (Q%+" 0999999999999999") 
170 О%= "ЕВЕОЕЕЕЕЕЕЕ ВЕ ОСВВТ За 1 ведер 1ВЗВ" 

171 DEFCHR$ (35) =HEXCHR$ (0%%"5148574455404080") 
172 Q ま ="55QA7QAE 980999999FFFFSE 1ЕТЕЕЕЕЕЕР" 

173 РЕЕСНЕ (36) =HEXCHR ま て Q 和 も +"FFFFDFQ399999999") 
174 0%= "ВЕ 1F3C7BF 0600000۸0408307 0F ?FDCE 0" 

175 DEFCHR$ (37) =НЕХСНЕ% (08 + "Е OE ОСОВОВОВВВЗОЕ") 
176 Q*="1FOF97939199999999C9E9E9C9999C3C" 

177 ОЕҒСНЕ% (38) =НЕХСНЕФ (0%+ "1598405 123 ヶ FBF 9C9" ) 
178 Q ま ="FFFFFFFFFFFF ア F3F 9999999999999999" 

179 DEFCHR$ (39) =HEXCHR 和 て Q ロ も +"55AAS5AA55SAA552A" 2 
186 Q$*="7F7F7F3FBF3FBF3F7F7F7FBFBFBFBFBF " 

187 ОЕЕСНЕ (43) =НЕХСНЕ% (Q%+" 7F 7F 7FBFBFBFBFBF " ) 


11Б 199911011 —283— 


@#*$="BFS5SF?F4FAF57A75S7BFDFDFEFEFF7F7F7" 


DEFCHR ま (44) “НЕХСНК%(0%%"ВЕОЕОҒЕРЕРЕ?Е?Е?7") 


0%- "АВ5ЗАЎ 1522544 ら 64FBFBFDBD3DSESE6E " 
DEFCHR 和 も て 45) =HEXCHR ま ( 避 和 も +"FBFBFDBD3DSESE6E "> 
Q*$="&éñ747?7F 7F7F 7F 7ZF6E7&7?7F7F7F7F7F " 
DEFCHR ま も (46) =HEXCHR$ (Q$+"&E7&7?7F7F7F7F7F") 
0%-“?Е?Е?Е?Е?Е?ЕЕЕҒКЕ?Е?Е?Е?Е?Е?ҒЕҒЕҒЕ" 
ОЕЕСНКЗ (47) «НЕХСНКФ(0%%"?ҒЕ?Е?ЕТЕ?Е?ЕҒЕҒЕЕ "› 
も ="FFFFFFFEFCF8F 1F29999999193979FO9F" 
DEFCHR$ (50) =HEXCHR$ (QE+ " SSAASSAAS4A85 1A2 " > 
Q ま =" じ ビ 3839191919999993B7BFDFDFDFEFEFE" 
DEFCHR も (5 1) -НЕХСНК%(0%%"4383010101000000"02 
Q ま ="393B1FSBDC9 る 9 る 8969FFFFFFFFFFFFFFFF" 
DEFCHR 和 も (52) =HEXCHR 生 て (QQ も + "392B 168DC9E9E9E9") 
Qi=" 999989C9C9999999F 9F タ FDFEFFFFFFFF" 
ОЕРСНЕЗ (53) =НЕХСНЕ%Ф (0%+ "097026040с0000000") 
本 =" 9999999999999999FEFEFFFF ア 7FBFDFEF" 
ОЕЕСНЕЗ (54) «НЕХСНКФ(0%%" 9999999999999999") 
0%-"1Ғ0ӨР0Ө?дӨЗд10000000000008060С0Е0Е0" 
ОЕЕСНК% (552 “НЕХСНК%(0%%"150А050201000000"02 
QE= 9999999999999999" 
DEFCHR$ (562 =HEXCHR$ (0% + "558855885548552й4" ) 
も ="E9C9C9E9E9E9E9E91F3F3F1F1F1F1F1F" 
ОЕҒСНКФ (662 =НЕХСНЕФ (0% + "448840А040А142А0 " ) 
Със" dd99999999d999999FFFFFFFFFFFFFFFF" 
ОЕЕСНЕ (67) =HEXCHR$ (0%+" 1010202040800000") 
0%-"70360303818181СІС?ҒЕВЕВЕВЕФЕОҒЕОҒЕОҒЕ" 
ОЕЕСНЕЗ (48) =НЕХСНЕФ (Q*$+"70B0B8B878D8DCDC ") 
Q*$="00000000001008804FFFFFFFFFFFFFFFF" 
ОЕРСНЕЗ (69) «НЕХСНКФ(0%%" 0000000000201008"0 
Q*$="000000008000000BD08F7F7FBFBFBFDFDFE " 
ОЕЕСНЕЗ (78) - НЕХСНЕ + (GQ*$+"008000000800000900") 
СЪ- "РВВВВВВВЙЙВВЯВВВОВЕ ВЕР ВЕЗЕВЕСЕСЕЕЕЕ" 
DEFCHR も て (7 1 =НЕХСНР%Ф (Q$+" 0000000000000000"2 
Q#*#="1F8F80301080800080000000000000000800" 
ОЕЕСНК (72) =HEXCHR$ (Q#*+" 15040 10000000000") 
Q*$="FFFFFFFF7F3F0F0700800000000000000" 
ОЕЕСНК% (73) =НЕХСНК% (Q*+"55A655A655268582 " ) 
Q*="FFFFFFFFFEF8F80F8008008088080818780F 1F " 
ОЕРСНЕЗ (812) -НЕХСНК (035 + "55 Аа85588544850ай" ) 
Q*="C0C080800880080900083F3F7FFFFFFFFFFF" 
ОЕЕСНЕ% (82) «НЕХСНК%(0%%"40861820С0000000") 
Q*="ü8800800080000800000FFFFFFFFFFFFFEFE" 
DEFCHR$ (83) «НЕХСНК%(0%%" 000000010307060Е") 
Q*="1C1C1C1C1C1C1C1CDFDFDFDF?FSFDFDF " 
ОЕЕСНКЪ (84) =HEXCHR (Q*$+"DCDCDCDC%ESEDFDF "> 
Q*="ü8000000080000000FFFFFFFFFFFFFFFF" 
ОЕЕСНЕЗ (85) =HEXCHR 和 ま て 避 ま +" 9999999999999989") 
4=" 9999999999999ggFEFFFFFFFFFFFFFF" 
DEFCHR$ (86) =HEXCHR$ (Q%+" 8999999999999999") 
Qi=" ロ 9999999999999997ZF7FBFBFDFEFF ア F タ " 
DEFCHRĖ (87) «НЕХСНК%с0%6%" 0000000000000000"2 
も ま =" 6999999999999d ロ dd9998989C9CgE9FgF9g" 
DEFCHR 和 まま (88) =HEXCHR$ (Q$+" 9999999999999999") 
Q#*="083010800800000000000000000000000800" 
DEFCHR$ (8?) =НЕХСНЕФ (О®+"010000000000000@") 
ОФ= "ҒҒҒЕ?Ғ 1F9Fg7Z91999999999999999999" 
ОЕЕСНК% (902 -НЕХСНЕ (03 + "55АА5504А05020100") 
Q*="FFFFFFFFFFFFFF7F08080880088080080800" 
ОЕЕСНКЪ (9 1) =НЕХСНЕ% (Q%+ "SSAASSAASSAASS2ZA " ) 
品 生 =" リ FFFFFFFFFFFFFEFD9999999999919393" 
РЕҒСНЕФ (76) <НЕХСНК (05 + "SSAASSAASSABS 7AB " ) 
0%-"ЕйС0ОВОВ5ЙАА5АВЕІРЕЗЕ?Е?ЕЕЕЕЗЕЗЕЗ" 
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あっ 
7) 


= 


295 
296 
297 
298 
299 
388 
301 
382 
303 
384 
305 
306 
307 
зав 
за? 
з1а 
311 
312 
313 
314 
315 
314 
317 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
30 
361 
362 
363 
11D 


ff 8 


ОЕЕСНКЪ (97) =HEXCHR 和 も て 避 和 ま +"4989998979FEF る EQ" ) 
ОФ= "999d999999999999FFFFFFFFFFFFFFFF" 
ОЕЕСНКЪ (98) «НЕХСНК%<(0%%" 9999999999999999") 
Q*="019083030307070707FDFBFBFBF7F7F7F7" 
DEFCHR$ (99) =HEXCHR$ (Q$+" 1D3B3B3B77767676") 
о3- "DBDCDCDCDCEEEEEFDFDFDFDFDFEFEFEF" 
DEFCHR$ (100) =HEXCHR$ (Q%+" 1F 1F 1F 1F 1F OF OF ВЕ") 
Q$=" 999999295928149QFFFFFFFFFFFFFFFF" 
DEFCHR$ (101) =НЕХСНЕ% (Q*#+"80C870?FƏFC7C3E0") 
Q=" 9999999999999999FFFFFFFFFFFFFFFF" 
ОЕҒСНКФ (102) «“НЕХСНКФ(0%%" 999999F 9FFFFFFFF " ) 
Със "9999999999999999FEFFFFFFFFFFFFFF" 
DEFCHR 和 も (193) =HEXCHR$ (Q$+" 99999999FCFFFFFF "9 
С Ф= "999999999999999978BBB ヒ CCF2FFFFFFFF" 
ОЕЕСНКЪ (194) -“НЕХСНКФ%(0%%" 999999999989E9F9") 
Qi=" 99999999999999999999999989C ビ 9EgF8" 
DEFCHR$ (185) “НЕХСНК%(0%%" 9999999999999999") 
も = "999999999999999999999999199C9793" 
DEFCHR ま も (て 196) «НЕХСНК%(0%%" 9999999999999999" ) 
СФ= "1F979999999999999999999999938FFF" 
DEFCHR$ (107) =HEXCHR$ (Q$+" 1502000000000000") 
本 ="FFFFFF ア F3F 9F 939999999999 じ 9F 9FCFF" 
DEFCHR ま も (て 198) =HEXCHR$ (Q$+"55665526150A601808") 
Q ま ="FRFDFRFFFAFFFFFF 9797979595959999" 
DEFCHR$ (112) =НЕХСНЕ% (Q$+"57AF57AF55AF55AA") 
0%-"ВВ?СВСЕСВЕҒЕҒЕҒЕЕ?С74747430З8ЗӨЗ" 
ОЕЕСНКА (113) =HEXCHR 生 ( 避 和 ま +"F4EC54EC5S る AAD る QA " 2 
Q=" 99999999999999997F タ CE3FFFFFFFFFF" 
DEFCHR も (1 14) =HEXCHR$ (Q$+" 9999999999999999") 
QS$=" 97gF OF OF OF OF 9797F ア 7EFEFEFEFEFF7F ィ 7" 
ОЕҒСНКФ (115) «“НЕХСНК%(0%%"345С5С6С6С6С7636"2 
Q$="EFEFEFF7F7F7F7F7EFEFEFF7F7F7F7F7" 
ОЕРСНК (1164) =HEXCHR$ (О%®+"@Е@Е@Е@7@7@70707") 
Q*=" 159Q05 9285C2C 1E9FFFFFFFFFFFFFFFF" 
DEFCHR$ (117) +НЕХСНЕ (С++ "E OF OF ВЕВЕВЕСЕСЕЕ") 
Q%="4 OAASSAASSAASSAAFFFFFFFFFFFFFFFF " 
DEFCHR$ (118) «“НЕХСНК%(0%%"З3Ғ 000409000000000" 
Q*$=" QOAOSSAASSAASSAAFFFFFFFFFFFFFFFF " 
DEFCHR$ (119) «НЕХСНК%(0%%"ҒҒӨРО00000000000") 
съ-"дййй4 9RG54QASSQQFFFFFFFFFFFFFFFF" 
ОЕЕСНК Е (120) “НЕХСНК%(0%%"ҒВЕСЗЕ0О7010000008"92 
Q%=" 9999999999999989FCFEFFFFFFFFFFFF" 
DEFCHR も て 12 1 ) “НЕХСНК%(0%%" 0000000080804020") 
О Ф= "999999999999999999939FF7FBFCFFFF" 
ОЕҒСНКФ (122) «“НЕХСНК%(0%%" 0000000000000000"92 
ОФ= "9999999993979F7F7FBFEFFBFEFD7aD5" 
ОЕРСНК (123) -НЕХСНЕК + (0%+ "0000000002050А55"› 
Със" 9999999989C9F 8FCFFFDEADSAAñSSAAñSS " 
DEFCHR$ (124) =НЕХСНЕ% (Q$+" 00031F3FFF7FAF57") 
0%-"ҒЕЗғЕОТООООООООООООДдАВ55АА55АаА55" 
DEFCHR も (125) =НЕХСНЕФ (ОФ + "5БЕАРОРЕРЕЕЕЕЕЕЕР") 
も ="FFFFFFFF 1F91999999999999Q ム 854 ム A55" 
DEFCHR$ (126) «НЕХСНК%(0%%"55ААЗЗААҒЗҒЕҒЕЕЕЕ " ) 
G ま ="FFFFFFFFFFFF3F ВЕ 8999999999998959@" 
DEFCHR$ (127) =НЕХСНЕ% (0% + "SSAASSAASSAADSF A" 2 
Q#="FFFFFFFFFFFFFFFF8F8F1F1F1F1F0800908" 
DEFCHR$ (128) =HEXCHR$ (Q%+"SQA74FAF 4F AOSSAA" > 
0%-"ҒЕЕЕҒЕҒҒЕЕҒЕҒЕҒҒЕЗР 1F9FBF8BF89999" 
DEFCHRE (129) «НЕХСНК%(0%%" 1ЕВЕ5ҒЕ2Е502556А"2 
Qi=" Q044808OC OF 1FFFFFFFFFFFF ア F9E9999" 
DEFCHR$ (130) =HEXCHR$ (Q$+" 999989894 9Q855SQa" ) 
Q$=" 991938387CFEFFFFEFEFC7C783919999" 
DEFCHR ま も (131) =HEXCHR$ (О$+"@Е OF 172F57AB55AA") 
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Q*="E34307070F0F 1FFFEFSDB ゥ FBF OF 9E999" 
DEFCHR も (132) =HEXCHR$ (Q$+" OF 1FBDFAFSFAF5AA" ) 
Оз- "СВЕВЕ 9FBFCFEFFFFFFFFFFFF7F3F ЕВА" 
ОЕЕСНЕ (133) =HEXCHR$ (Q$+"FFFFFFFF7FBF5FAA") 
0 "55241582йй8йЕСЕЕЕЕЕЕЕЕЕЕЕЕЕЕВЗО:" 
ОЕЕСНЕ (134) -НЕХСНЕ  (Оъ+ "ВЯСВЕВЕЗЕЕЕР54 АА") 
Q*= "55QQS5AA15999999FFFFFFFFFFFFFFFF" 
ОЕЕСНЕ (135) «НЕХСНБК%(0%%"00000000СОҒЕЕЕ09") 
0%= "5588554855йайй8йЕЕЕЕРЕЕЕЕЕЕЕЕЕЕЕЕ" 
ОЕЕСНЕ (136) =HEXCHR$ (Q%+" 9999999999E9FF99" ) 
0%-"40040404000010ТЕЕЕЕЕЕЕЕЕЕЕЕҒЕЕЕ" 
ОЕЕСНЕ + (137) =HEXCHR ま も て Q ま +" 1919191929498192") 
Q=" 99999999999989C9FFFFFFF7EB552A15" 
ОЕЕСНЕ (138) -НЕХСНК%(0%%"010205ФЕЗЕЕЕ?ЕВЕ") 
оъ- "о7а:вавававарайакАЕЕЕЕЕРЕЕЗЕВА55" 
ОЕЕСНЕ (139) =НЕХСНЕФ (Q$+"52AB55AAD5FAFFFF ") 
Q*="FCFEFFFF3F OF 9399QA55QA5SEAF 5FEFF " 
ОЕЕСНЕ% (140) =HEXCHR 和 も (Q ま +" 人 QBS5AA55 る QA556 る QA" ) 
озъ- "ВйВВЕВЕЕЕЕЕЕЕЕТ7Е 5568855 405йдава" 
DEFCHR$ (141) =HEXCHR$ (ОЪ+ "ЕЕРЕВЕ55АВ52852 4“) 
0%= "0007 1Е7ЕЕЕЕЕЕЕРЕ 5 9A99999999999" 
DEFCHR$ (142) =НЕХСНЕФ (0%+ "FFF AF SAASSAASSAA" > 
0%-"ВФСФЕРЕЕЕЕЕЕЕЕЕЕ?ЕЗЕ 000000000000" 
DEFCHR ま て (15 1) =HEXCHR$ (Q$+" 008055455556") 
0%-"Ф ФФОФЕҒКЕЕЕЕЕЕЕЕЕЕЕЕЕЕ 000000000000" 
ОЕЕСНЕ (152) -НЕХСНКФ(0%%"000055/МА55ҰМА5 АА" > 
Q*="3F7FFFFFFFFFFFFFC080000000000000" 
ОЕЕСНЕ (153) =НЕХСНЕ% (Q$+" 152A55AASSAASSAA" ) 
0%-"ЕФЕЙЕВЕСЕЕЕҒЕҒЕҒ 0А05020 100000000" 
DEFCHR$ (154) =HEXCHR$ (0%+ "5FAF57AB55QAA55AA" ) 
Q*=" 89999993FFFFFFFFAASSAA5499999999" 
ОЕЕСНЕ (155) =НЕХСНЕФ (0%+ "ЕЕРЕЕЕЕЕ5 5645544") 
も =" 89919F ア FFFFFFFFF ア FAE598999999999" 
ОЕЕСНЕ% (156) =HEXCHR 和 まく Q ま +"D5F4F5AA55AA55AA" ) 
Q*="FFFFFFFFFFFFFFFF9999999999999909" 
ОЕЕСНЕ (159) =HEXCHR$ (0%+ "55QA55AA55AA55AA" ) 
0%-"000000005090600280000000060906000" 
DEFCHR も て 1 る 1 ) =НЕХСНЕФ (Q%+" 0000000060906000") 
Q*="997C494949499999997C494949499999" 
ОЕЕСНЕ В (162) -НЕХСНЕ  (Оъ+ "007С4 9404 04 8808") 
0%-"0000020202023Е000008020202023Е00" 
DEFCHR$ (163) =HEXCHR 和 も て Q 和 も +" 000002020202ЗЕ00") 
0%-"00000000004020300000000000402030" 
DEFCHR$ (164) =HEXCHR$ (Q$+" 0000000000402030") 
Q$="FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF" 
DEFCHR$ (165) =HEXCHR$ (Q%+"FFFFFFFFFFFFFFFF "> 
Q$="20F0243814203C0020F02438142803C00" 
DEFCHR$ (166) =HEXCHR$ (Q$+"20F0243814203C00") 
0%-"00107Е147Е54360000107Е147Е5АЗ600" 
DEFCHR$ (167) -НЕХСНК%(0%%"00107Е147Е5АЗ600") 
0%= "アビ 987C22A6QA4C997C987C の 2A2QA4C99" 
ОЕЕСНЕ% (168) =HEXCHR$ (Q%+" 7C087C?2A6AA4C 00") 
оз- "вй1све1сагагасваватсай:сагагесаа" 
ОЕЕСНЕ + (169) +НЕХСНК  (Оъ+ "ай1сйй1сагагасад" ) 
Q*= "38193C42 121C2A4538 1 93C42121C2A45" 
DEFCHR$ (170) -НЕХСНК%(0%%"38103С42121С20445") 
Q*="00103C121C32360000103C121C323600" 
ОЕЕСНЕФ (171) =НЕХСНЕФ (ОЪ+ "д0103С121С3234й0") 
оз- "в80424зс52йаавейвйва24зс5гдаввав" 
ОЕЕСНЕ (172) -НЕХСНК%(0%%"0004243С52040800") 
0%-"0008085Е404Е08000008085Е664Е0800" 
DEFCHR$ (173) -НЕХСНК%(0%%" 0008085Е664Е0800") 
=" 99980E98182C1A9999989E98182C1A99" 
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ОЕЕСНКЪ (174) =HEXCHR も (本 +" 99989E98 182C1Q99") 
生ま =" 9999991 じ る 2929 ヒ ビ 999999991 じ る 2929 じ 99" 
DEFCHR$ (175) -«НЕХСНКФ%(0%%" 9999991 じ る 2929 じ 99") 
Qs=" 9999997 じ 999999999999997 じ 99999999" 
DEFCHR$ (176) =НЕХСНЕ% (0%+ "9999997 じ 99999999") 
0%="2@ЕС287С^ААЎ?2640020ЕС287САА?24&4@0@" 
ОЕЕСНЕЗ (177) =НЕХСНЕ% (Q$+"20FC287CAA?26400") 
0%="0000048282503000900900048282503000" 
DEFCHR 和 まく 1 ア 8) =НЕХСНЕФ (0%+"0000048282503000"› 
0%="1Сс003С420204 18001Сс003Сс420204 1800" 
DEFCHR$ (179) =НЕХСНЕФ (0%+ " 1С003С420204 1800") 
0%= "38007С0810938450038007С08 10384500" 
DEFCHR も (189) =HEXCHR$ (0%+ "38007С08 103684600") 
0%= "28 422207са254йй2йЕ422207САа26488" 
ОЕЕСНК А (181) =НЕХСНЕ%Ф (0%+ "20 422297СА26 488") 
Q$="2024F22A284810002024F22A28481000" 
ОЕЕСНЕ (182) =HEXCHR$ (ОЪ+ "2024F22A28481000") 
Q*="103C083E04201C00103C083E04201C00" 
DEFCHR$ (183) =НЕХСНЕ% (Q$+" 1 03C083E04201C00") 
0%= "09808 1 9 る 69199898999898 196919989899" 
DEFCHR ま (184) =HEXCHR$ (0%+" 0808106010080800") 
0%-"04445Е444444080004445Е4444440806" 
ОЕЕСНЕЗ (185) =НЕХСНЕ%Ф (0%+"04445Е4444440800") 
本 =" 9938949899493 じ 999938949899493 じ 99" 
ОЕҒСНР% (186) =HEXCHR$ (Q$+" 9938949899493 じ 99") 
съ-"1ййазсй4 9 ご と 91 じ 99199Q3C9492291 じ 99" 
DEFCHR ま も (187) =HEXCHR$ (Q$+" 1 00A3C0402201C00") 
Q*$="2018202022221C002010202022221C8080" 
DEFCHR$ (1882 =НЕХСНЕ% (0%+"2010202022221С@0@")› 
0%="098ҒЕ38483808300008ғҒЕЗ84838083000" 
DEFCHR ま (18?) -НЕХСНК%(0%%" 0ӨЗҒЕЗ84838083000"2 
0%-"2424ҒЕ2420201Е002424ҒЕ2420201Е00" 
ОЕЕСНКЪ (190) «НЕХСНК%(0%%"2424ҒЕ2420201Е00") 
0%-"2418387Е040804802418307Е04080406" 
DEFCHR ま も て (1? 1) =НЕХСНЕ%Ф (0%+ "24 18307Е04080400") 
0%-"20Ғ04Е5280908Е0020Ғ04Е5280908Е00" 
DEFCHR$ (192) -«НЕХСНК%(0%%"20Е04Е5280908Е00"; 
0%="087Е 1 93 じ 62 92 1 ビ 99987E 1 93 じ 6 る 292 1C99" 
DEFCHR$ (193) =НЕХСНК% (Q$+" 987E 1 93 じ る 292 1C99") 
0%-"009864020204180800986402020418086" 
ОЕЕСНКЪ (1924) «НЕХСНК%(0%%" 0099864020204 1800") 
0%-"007Е040810180С080807Е040810100С00" 
DEFCHR ま て (125) -НЕХСНК%(0%%" 997E949819199C99") 
A=" 9944483929427 ヒ 9999444839 選 9427C99" 
DEFCHR$ (196) «НЕХСНКФ%Ф(0%%" 9944483929427C99") 
Q$="20F44A881C2A180020F44A881C2A1800" 
РЕҒСНКФ (197) =HEXCHR$ (Q$+"20F44A881C2A1800") 
Q$="004E424040482F 99994E424949482F99" 
DEFCHR$ (198) =HEXCHR$ (Q$ +" 994E424949482F99") 
0%-"48287С92А6ға460048287С92Абаға60а" 
DEFCHR$ (199) «НЕХСНК%(0%%"48287С9286844600"2 
0%-"4048Ғ4644С064Сс004048Ғ4644С064С080" 
ОЕЕСНК% (200) “НЕХСНКФ%(0%%"4048Ғ4644С064С08"9) 
0%="003854929252040000385492926209400" 
DEFCHR$ (281) =НЕХСНЕ%Ф (0%+"090385492926209400") 
0%-"445Е44444С5448080445Е44444С544600" 
ОЕЕСНК (202) «НЕХСНК%<0%%%445Е44444Сс544800") 
0%-"204446242424180020646624242418060" 
DEFCHR$ (203) =HEXCHR$ (Q$ + "2064A62424241800") 
も ="39993948984Q229939993948984A の 22909" 
DEFCHR$ (204) =НЕХСНЕФ (0%+ "309003048084А7200") 
0%="0990102844020200000010284402020000" 
DEFCHR$ (205) =HEXCHR$ (Q$+" 0010284402020000") 
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0%-"9Е849Е848С%954С00%9Е84%ЕВ48С964С080" 
ОЕЕСНК% (2062 =НЕХСНКФ (0%%"%9Е84%9Е848С%964С00"92 
0%-"087Е083С083С4830087Е08З3С08ӨЗСААЗ0" 
ОЕЕСНЕ% (2072 -НЕХСНК%<0%-%" 8987E983 じ 983C4Q39") 
0%="7010147СААС8 10007010147СААСВ 1000" 
DEFCHR$ (2082 =HEXCHR$ (0% + "7010147СААС8 1000") 
Q$="24F22060A2623C0024F22060A2623C00" 
DEFCHR$ (28?) =HEXCHR$ (0% + "24F22060A2623C00") 
п05ъ- "08487саа9272548888487Сйе727254йй" 
ОЕЕСНК (210) =НЕХСНЕФ (0%+"08487СА272926400") 
0%="1078207820221С001078207820221С00" 
DEFCHR$ (211) =НЕХСНЕ%Ф (Q$+" 107820782022 1Сс00") 
0%-"44447СЕ22620100044447СЕ226201006" 
ОЕЕСНЕ% (2122 =НЕХСНЕ%Ф (0%+ "4444 7СЕ2262й1йййд") 
съ- "аззввссасеясававазззвссасазсавев" 
ОЕҒСНЕ% (213) - НЕХСНКЪ соъ+ "дзвевссасазсевей") 
сЪ-" 1 808йЕ 98384E389918989E98384E3899" 
ОЕЕСНЕК (214) + НЕХСНК (03 + "1888 8Е й8384Е З 2") 
сзъ- "1884 1й3С52821сй81894 193 ヒ る 2921C99" 
ОЕЕСНЕЗ (215) -НЕХСНКЪ (Q$+" 1804 1 93C る 6292 1C99") 
0%-"242424242404080й02424242424040800" 
DEFCHR も (2 1 る 6) =НЕХСНЕФ (0%+ "2424242424040800") 
оъ- "3C98 1C229E 121C993C981C229E121C99" 
ОЕЕСНК (217) - НЕХСНЕ  (О+ + "3C981C629E 121C99") 
0%-"10147С345414121010147С3454141218" 
DEFCHR も (2 18) - НЕХСНЕ 3 (05 + "18147С345414121й") 
съ-"зсав1азс4г2й2 1сайзсав1 взс4г2йг 1 сев" 
DEFCHR$ (219) =НЕХСНЕФ (0%+ "3C98 1 93 じ 42921C99") 
Q$="2020EC3262A224002020EC3262A22400" 
DEFCHR ま (229) =HEXCHR$ (Q$+"2020EC3262A22400") 
0%= "0808 102070С08&50008908 102070СсА8&00" 
DEFCHR ま (22 1) =НЕХСНЕ%Ф (0%+ "0808 1902070СА8500") 
Q*="202?0400000000000207?0400000000000" 
DEFCHR まま (222) =НЕХСНЕ%Ф (0%+ "209 0400000000000") 
0%-"<0905000000000006090500000000000" 
DEFCHR も (223) -НЕХСНКФ%(0%%"6090500000000000"9) 
0%-"0000000000000аООҒЕЕҒЕЕҒЕЕҒЕ ВВйВВВЙВ" 
DEFCHR$ (224) -НЕХСНК%(0%%"АА554А5500000000"9) 
0%-"1080Е60700311Ғ1818100Ғ07060З11Ғ1818" 
DEFCHR$ (225) “НЕХСНК%(0%%"100Е0700З11Ғ1818"9) 
Q$="181F181818181F10181F181818181F10" 
ОЕҒСНЕФ (226) =HEXCHR$ (Q*+"181F181818181F18") 
も =" 0006020303030303 0000020303030303" 
ОЕЕСНЕЗ (227) =HEXCHR$ (Q$+" 0000020303030303") 
O*$="0307070D08C1830400307070D0C183040" 
ОЕЕСНЕ (228) -НЕХСНК%(0%%"0З30707000С183040") 
以 ま =" コ 99999999999291F999999999999291F" 
ОЕҒСНЕ% (229) -НЕХСНКФ(0%%" 999999999999291F") 
Qt=" 9F99999999999999gF99999999999999" 
DEFCHR*$ (230) =НЕХСНЕФ (0% + "9F99999999999999") 
0%-"1008241Ғ07301Ғ181008241Ғ087301Ғ18" 
ОЕЕСНВ%(2312-НЕХСНК%(0%%" 1008241Ғ07301Ғ18") 
も ="181F181F18181F18181F181F18181F18" 
DEFCHR (232) =HEXCHR$ (Q$+"181F181F18181F18") 
=" 99999 の 999999999999999999999999999" 
DEFCHR$ (233) «НЕХСНВ%(06%" 9999999999999999") 
Q も ="FFFFFFFFF ア FFFFFF 98 ІСООЕЕ?ЕЗЕЕҒЕ?" 
ОЕЕСНК (234) “НЕХСНК%(0%%"5542000009800008"02 
Q*$="0000000008000000000000000000000800" 
DEFCHR$ (235) =НЕХСНЕ%Ф (0% + "0000000000000090") 
Q$=" 99999999999999999999999999999999" 
DEFCHR も (て の 36) - НЕХСНКЪ (ОФ + " 9999999999999999") 
本 =" 99999999999999999999999999999999" 
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575 DEFCHR も (237) =HEXCHR$ (Q$+" 00008000000000000"2 
576 0%-"000000000000000000000800000000000" 

577 DEFCHR$ (238) =НЕХСНЕ% «съ +" 0000000000000000"2 
578 Q 和 ま ="99999999999999999999999999999999" 

579 DEFCHR も (239) =НЕХСНКФ (Q*+" 9999999999999999") 
580 0%-"0000000000000дФФӨКЕЕЕЕЕРЕЕ 99999999" 

581 DEFCHR$ (240) «НЕХСНК%(0%%" ғА5З/- 455000000002 
582 0%-"Ғ0ОЕҒВ6СС0ООАЯАҒЕОСӘСЕӨРВ6ССФФАҒЕӨСӨС" 

583 DEFCHR$ (241) =HEXCHR$ (ОЪ + "ЕРЕВЕССЯВ4ЕЕВСОС" ) 
584 Q も =" 9CFC9C9C9C9CFC989CFC9C9C9C9CFC98" 

585 DEFCHR$ (242) =HEXCHR$ (Q$+" 9CFC9C9C9C9CFC98 " ) 
586 Q$=" 99999999999999999999999999999999" 

587 DEFCHR も (243) -“НЕХСНК%(0%%" 9999999999999999") 
588 0%-"00000080С070З3С1Е00000088С070ЗС1Е" 

589 DEFCHR$ (244) «НЕХСНК%(0%%" 060000080С07ӨЗС1Е "> 
590 0%-"00000000000078ҒС000800000000078ЕС" 

591 ОЕҒСНЕ% (245) «НЕХСННКФ(0%%" 99999999999978FC") 
592 Q*="0£&00000000080000000500000000000000" 

593 DEFCHR$ (246) =НЕХСНЕФ (О%+ " 0600000000000000") 
594 G*="308208FCFE208C8FC0C3028FCFE208C8FC80C " 

595 ОЕҒСНЕ% (247) =HEXCHR$ (Q#+"3828FCFE28C8FC08C "> 
594 0%-"ФСЕСЕСЕСОСӘСЕСӘСӘСЕСӘСЕСӘСӘСЕСЕС" 

597 ОЕҒСНЕ% (248) =НЕХСНЕФ (О++ "ВСЕСВСЕСЕСЯСЕСЕС" ) 
598 съ- "ввпвававевввавеававевайяавевавйва" 

599 DEFCHR$ (249) - НЕХСНКЪ (ОЪ+ "999 ロ 999999999999") 
608 Q*$="FFFFFBF7FFFFFFFF88881C3C3C388080880" 

6081 ОЕРСНК Е (258) =HEXCHR$ (0Ъ+ "5864 5884 1825584") 
682 оъ-"вввававввавававоваваававеваяавяава" 

ら る 93 DEFCHR$ (251) =HEXCHR$ (СФ + "ававававейярйярйяйа" ) 
604 озъ-"вававвяававававайвавеваяававайавяая" 

605 DEFCHR$ (252) =HEXCHR$ соъ+ "вйввдвавайвяваяя") 
606 съ- "вдрвавяваввввввйвавававвввавайяя" 

607 DEFCHR$ (253) - НЕХСНК «съ + "вйвравайввевавяя" ) 
608 озъ- "ввввввввввйвавававаявеававазарвав" 

609 DEFCHR$ (254) =НЕХСНЕФ (пъ+ "вйввввавававяйвя" T) 
618 съ- "ввававевввввваварвавевававвавева" 

611 ОЕҒСНЕ% (255) - НЕХСНЕ + «съ+ "вайдвавадйайвявяяй") 
902 DEFCHR$ (243) =STRING$ (24, й) 

903 DEFCHR ま (16 る 9) =STRINGS (24, й) 

904 ОЕҒСНЕФ НРА) =HEXCHR$ ("FFFFFBF7FFFFFFFF88881C3C3C38888855ñ5ññ5d 
5884 182558а") 

1008 CLEAR&HFF00:SCREEN1,;, й:С: 5: СЕ| азн: СЗТЕЕ : PRRSS 1188: Ра! ЕТ2, 7 
1010 СОГОВ? : СБЕМ!: :LINE (8, 0) - 39, 24), "A", ВЕ 

1020 FORI=@TO 7: РОКТ-ЙТО1:15:а<1ж! 6 + 

1025 IF ана AND а<ен1й ОК ана AND A<šH208 OR АУ&Н2А AND ALH 
30 OR A=32 THEN 60701029 

1827 і ОСАТЕЈ +14, 1+19: РКТМТЯВСНЕКЗ (1ж14 +. 7) 

1029 МЕХТ:МЕХТ:5СКЕЕМӨ; 9 

1030 РЕРЕАТ: 2%= ІМКЕҮФ: UNTIL 2%< >" " 
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24 TEMPO 25ë:SDOLIND11, 28:SGUND12, id: SOUNO13, В: INIT 
за M$ (@) ="Vis05C304BAB" 

40 МФ (1) ="ÚU146405CSG4BAE " 

50 HIDTH40:SCREENB, Ө:Гі 54 

50 FOR Х-4й TO 280 STEF Sê 

70 FOR Үс?8 ТО 196 STEP за 

ва FOR 157 ТО 1 STEP -1 

?@ CIRCLE (X, Ү2,40,1.1,9й0-Іж10,90жіІжій 

188 ХітсайжСП5 (RAD с27?7й-1жій) э +X : Үіс4 ажатмскер «278-1ж1й)) + 
Y 

118 XZ =4 AXCOS (RAD ‹27й+1жій) ) +X : Үг-4 же тр чмскео (270+Ix10))+ 
Y 

20 LINE (Хх, Ү2- (х1, Ү12, РЅЕТ, І 

138 LINE <, Y2 = (ха, Ү22, РЅЕТ, I 

148 PAINT (X, Y-1ð), 1,1 

150 L INE (X, Y>- (XI; Ү12. ХОР з 1 

168 L INE (X, Y) - (X2, Y2), XOR ‚1 

170 NEXT I 

188 NEXT Y 

190 NEXT X 


(オオ ギ 1) 


200 FOR Іс? ТО 1 STEP -1 
218 PALETI, ð : PLAY мъст MOD 2) 
220 NEXT : 


230 FOR Ісі TO 7 
240 PALET 1,1: 


PLAY мъст MOD г) 


250 NEXT I 

266 FOR Ізі ТП? 

270 FOR Ке? TO Е ӘТЕР -1 
284 PALETK, &:PAUSE i 
298 МЕХТ К 

366 FOR Ј=1 TD 7 


310 PALETJ, Г: PAUSE 1 
320 NEXT J 
330 NEXT I 


зай вотогвя 


つの 一 таа: еййза 


19 
28 
38 
49 
59 
60 


(オオ ギ е) 


жайы 
TEMPO 25é6:SOUND 11, 20:50030 12, 20: SOUND 13, 6: INIT 
МФ (0) =" り 1 る 05C304BAB " 
M$ (1) =" り 1605C304BAE " 
MIDTH49: SCREEN9,9:CLS4 
FOR X=49 TO 280 STEP 89 
FOR Y=79 TO 190 STEP 60 
FOR 157 ТО 1 STEP -1 
CIRCLE (X, Y), 40, 1,1,90-1ж10,90%1жій 
Хіз4йжС05 (RAD (270-1ж1й))+Х : Y1=40xSIN(RAD (270-1ж10)) + 


х2=40жС05 (RAD (270+Ix10)) +X : YZ=40xXSIN(RAD (27@+1ж1@››+ 


LINE (X, Y2 = (X1, Y1), РЅЕТ, І 
LINE (X, Y) - (X2, Y2), PSET, I 
PAINT СХ, Ү-102,1,1 
LINE (X, Y) - (X1, Y1); XOR , I 
LINE (X, Y) - (X2, Y2), XOR , I 
NEXT I 
NEXT Y 
NEXT X 


FOR 1-7 TO 1 STEP -i 

PALETI, 8 : PLAY МФ‹І MOD 2) 
NEXT I 
FOR I=1 TO 7 

PALET 1,1: PLAY мъст MOD 2) 
NEXT I 


FOR I=1 TO 7 
FOR К=7 ТО 1 STEP -1 
РАГЕТК, ё: PAUSE 1 
NEXT K 
FOR Ј=1 TQ 7 
PALETJ, I: PAUSE 1 
NEXT J:PLAY "9У1604А5ак?асзак?:91804В5В05В704В5В0О5вВ?" 
NEXT I 
PALET:GOTO208 


エラ ー メ ッ セ ー ジ 便利 表 


52 


25 


“МЕМ:” を INIT で 初期 化 
し な いま ま 使 お うと する と 
発生 。 


ERROR 


= ы S a 明 | 発生 し て コマ ンド レベ ル に 
戻っ て し まっ た 場合 な ど 。 
54| Already open | すでに OPEN し て ある ファ イ この よう な 場合 は 、GOTO 文 
ル を 再び OPEN し よう どす る に よっ て 先 に 進む こと は 可 
と 起こ る 。 フ ァイル を OPEN 能 。 ま た FOR 一 NEXT な ど を 
し た まま プロ グラ ム を 止め ダイ レク トモ ー ド で 実行 し 
BE. RUNLET E ~E て いる と き に 、BREAK し た 
すべ て の ファ イル が CLOSE 場合 に も CONT は 使え ず 、 こ 
され 、GOTO 文 な ど で プ ログ менен 
ラム を 再開 する と 起こ る こ 
と が ある 。 60| Device full 外部 記憶 装置 の 容量 が いっ 
64| Bad 外部 記憶 装置 に は 、 記 録 さ | | | ا ا‎ ааа. 
allocation れ て いる ファ イル 情報 (FI | |51| Device in use | 外部 装置 が 使用 中 。 こ の 場 
table LES で 表示 され る も の ) を 記 合 に は 、 コ マン ドレ ベル 、 
録 し て お く FAT と いう も の が ステ ー ト メン トレ ベル に な 
ある が 、 こ れ が こわ れ て い | ら な い の で 普通 発生 し な い 。 
кі лел BAS 56 | Device 1/0 入出 力 装 置 に お いて 入出 力 


エラ ー が 生じ た 致命 的 エラ 
ー。 “МЕМ; ” や “EMM ; ” 
に 対し て 、VERIFY を 行なう 


17 


Bad file ディ スク リプ タ が 違う 。 と 発生 する が 、 こ れ ら の デ 
descripter バイ ス へ SAVE し た 場合 は 、 
Bad file X 1 で 作成 され る ファ イル 信頼 性 が 高い の で 、VERIFY 
mode に は 、 BASIC の テキ スト 、 機 の 必要 は な い 。 

語 の パイ ナリ 、PRINT# で ۳ Device 入出 力 装置 が 接続 され て い 
作ら れる アス キー 形式 の 3 ее hasta, ERENT 
ааб 電源 が 入っ つて いな い 場 合 に 
エラ ー は PRINT# で 作っ つた フ 起こ る 。 
ァイル を LOAD で 読み 込 も う | —1 
と する と 起こ る 。 フ ァイル 11| Division | 数 学 で は 、 何 か の 値 を 0 で 
の 形式 を 調べ た いと き は 、 by zero 割る と 答え は 無限 大 に な る 
FILES を 使う と よい 。 が 、 コ ンピュータ で は 扱え 

な い の で 、 こ の エラ ー で 止 
Bad file OPEN され て いな い フ ァイル ЕЕ. 
number や 、 は じ め か ら 指 定 し て い 
な い フ ァイル を 使 お うと す | |10| Duplicate 配列 宣言 を 二 度 行 な お うと 
る と 起こ る 。 Definition し た と き に 起こ る 。 プ ログ 
Bad screen | OPTION SCREEN 2 を 指定 кт, УБА 
mode ETs уу ө? ХЕ す と き に 、DIM 文 を 一 度 通 ら 
リ を 外部 記憶 と し て INIT な いよ う 、 戻 り 先 の 行 を 決 

“МЕМ: * な ど を 実行 する め る こと 。 ま た 、DEF ЕМ 
と 起こ る 。 ま た 、80 文 字 モ дананы ады 
ー ド で 、ASK を 実行 し よう と || 2 
し て も 起こ る 。 50| FIELD FIELD 交 で 、 ラ シダ ム フ ァ イ 

Cant CONT 文 で プロ グラ ム の 実行 overflow ル の レコ ー ド 長 が 256 以 上 の 
continue を 再開 で き な い 。 た と えば 、 кеке РАВА 


1) RUN さ せる 前 や 、 エ ラー が 


їйй1ййїйй 


SIC) 。 


ff в 


23| Line buffur 
overflow 


NAME で ファ イル ネー ム を 変 
更 し よう と し た と き 、 同 じ 


File already 
exists 


1 行 の 入力 文字 数 が 多 す ぎ 
る 。 


ファ イル ネー ム が すでに 登 
録 さ れ て いる と 起こ る ( デ 
ィ ス ク BASIC) 。 


ディ スク 、 外 部 RAM と 、 グ 
ラフ ィ ッ ク メ モ リ を 外部 記 
憶 と し て 使っ て いる と き 、 
これ ら の デバ イス に な い フ 
ァイル を 使 お う と する と 起 
こる 。 


22| Missing 
орегапа 


OPEN 文 で 開か れ て いな い フ 
アイ ル を 使 お うと する と 起 
こる 。 


File not open 


PRINT USING で 書式 を 指定 
し て ある と き に 、 デ ー タ が 
長 す ぎ て 書式 中 に 収まり き 
ら な いと 起こ る 。 


36| Format over 


FOR ルー プ に NEXT が な い 。 


FOR without 
NEXT 


ダイ レク トモ ー ド か ら 実 行 
で き な い ステ ー ト メン ト を 
実行 し よう と する と 起こ る 。 
X 1 で は ほとん ど 発生 し な 


い 。 


Шева! direct 


エラ ー メ ッ セ ー ジ の 定義 さ 
れ て いな い エ ラー の 場合 起 
6. ШМ ОТЕ 
こら ず 、 起 こっ て も Umprin- 
table error と な る こと が は ほ 
どん ど 。 


Шева! function | LOCATE X А? CONSOLE X 
call な どの よび うに 、 オペ ラジ ド 
の ある ステ ー ト メン ト で 、 

パラ メー タ が 規定 外 の 数 値 
に な っ た と き に 起こ る 。 
епа of file の ファ イル を 読 
も うと し た り 、 空 の ファ イ 
ル を 読も うと し た と き に 起 
| こる 。 特に 、 PRINT#1、 A$; 
B$:C$: と し た 場合 に は 、 文 字 
列 は 続け て 書き 込ま れ て し 
まう の で 、INPUT #1、X$、 
Y$、Z$、 と し て 読み 込 も う 
と X$ に A$、 B$. C$ が 入っ て 
し まい 、 こ の エラ ー に な る 。 


Шева! format 


memory 


Input past 
end 


129 1681808181 


1 | NEXT without 
FOR 


No RESUME 


Out of DATA 


X 1 の BASIC で は 、 オ ペラ ン 
ド の パラ メー タ を 省略 で き 
る も の と で き な い も の が あ 
る 。CREV、CONSOLE な ど が 
省略 で きる も の 、LOCATE な 
ど が で き な い も の で ある 。 
また 、 演 算 子 の 後に 定数 や 
変数 が な いと き に も この エ 
ラー に な る 。 


FOR が な い の に NEXT が ある 。 


パス ワー ド と 合わ な い 。 フ 
ァイル を 作る と き に 、 パス 
ワー ド を 設定 する こと で 、 
シー クレ ッ ト フ ァイル を 作 
る こと が で きる 。 


エラ ー 処 理 ル ー チ ン か ら 
RESUME で プロ グラ ム を 再 
開 し よう と し て も 、 で き な 
い 場 合 に 起こ る 。 


READ 文 で デー タ を 読み 込ん 
で いく と き に 、DATA が た り 
な いと 発生 。 


プロ グラ ム が 大 きく な りす 
ぎ て メモ リ が た りな いと き 
や 、 配 列 が 大 きす ぎる と き 
пее 2. た を スス は 
次 の よう な 場合 、 

10 DIMA (16, 255) 
20 FOR 1=1 ТО 255 
30 READ A 

40 NEXT 

プロ グラ ム 自 体 は 49 バ イト 
し か 使わ な い が 、10 行 で DIM 
文 が 実行 され る と 配列 を 格 
納 す る た め に 、 約 21 キ ロバ 
イト の メモ リ が 使用 され 、 
この まま で DATA 文 を 入力 し 
て いけ ば 、 こ の エラ ー に な 
る 。 この エラ ー が 起こ る と 
それ まで の すべ て の 変数 が 
クリ ア さ れ て し まう の で 注 
意 が 必要 。 


ー@ タ コー 


31 | Out of stack 


この エラ ー は 、 今 の と ころ 
PUSH、POP と いう ステ ー ト 
メン ト が な いた め 、 発 生 し 
な い 。 


27| Out of tape SAVE、LOAD な ど 、 カ セッ 
ト テ ー プ を 使う 命令 を 実行 
じ し た と き に デー プ が セ 双 ト 
され て いな い 。 

6 | Overflow 計算 の 結果 が 許容 範囲 を 越 

えた 。 指数 形式 で 表わさ れ 
た 場合 、 指 数 部 が 38 を 越え 
る と 起こ る 。 

37| REPEAT REPEAT ル ー プ に UNTIL が な 
without い 。 
UNTIL 

34| Reserved テー プ 版 BASIC で ディ スク 
feature BASIC の コマ ンド を 使う と 起 

ご る 。 

20| RESUME エラ ー が 発生 し て いな い の 
without に RESUME 文 が あっ た 場合 
error に 起こ る 。RETURN without 

GOSUB と 同じ よう に 、 プ ロ 

グラ ム の 流れ が エラ ー 処 理 

ルー チン に 入り 込ま な いよ 

う 、END 文 を 入れ る 位置 に 
| 注意 。 

3 | RETURN GOSUB で 呼ば れ て いな い の 
without に RETURN 文 が ある 。 よ く 起 
GOSUB こる の は サブ ルー チン が プ 

ログ ラム の 後 の 方 に あっ て 、 
メイ ン ル ー チ ン を 実行 後に 
サブ ルー チン が 実行 され て 
し まう 。 こ の よう な 場合 に 
は 、 メ イン ルー チン の 最後 
に END 文 を 入れ て 置か ね ば 
な ら な い 。 

15| String too ー つ の 文字 列 に は 最大 255 文 
long 字 ま で 代入 で きる が 、 こ れ 


を 越え て 代入 し よう と する 
Дш る 。 


-2%4-- 


Subscript out 
of range 


Syntax error 


配列 変数 の 添字 が 規定 外 に 
な っ た 。 添字 の 値 が 変数 な 
ら 、 そ の 値 を 計算 し て いる 
部 分 を 再 チ ェ ッ ク し よう 。 
文法 の ミス 。 ス テー トメ ン 
ト の つづ り が 違う 場合 が ほ 
と ん ど 。 記 憶 の あい まい な 
ステ ー ト メン ト は 短縮 形 を 


使う と よい 。 
29| Tape read カセ ッ ト テ ー プ か ら デ ー タ 
ERROR が 正しく 読め な い 。 
16| Too complex | 式 が 複雑 すぎ る 。 式 の 計算 
順序 を 決め る エリ ア も 限り 
が ある た め 、 カ ッ コ が 異常 
に 多い 場合 な ど に 起き る 。 
13| Type 変数 の 型 が 合わ な い 。 次 の 
mismatch 例 の よう な 場合 も ある 。 
LINE(0, 0)— (100; 100), А 
18| Undefined DEF FN で 定義 し て いな い 
function 関数 を 使っ た 場合 に 起こ る 。 
DEF FN 文 は 、 プ ログ ラム 
の 前 の 方 に 置く よう に し よ 
ә 
| в | Undefined GOTO 文 や GOSUB 文 で 指定 
label され て いる 分 岐 先 の 行 番号 
や ラベ ル が な い 。 
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UNTIL 
without 
REPEAT 


WEND 


without 
WHILE 


WHILE 
without 
WEND 


Write 
protected 


REPEAT が な い の に UNTIL を 
実行 し よう と し た 。 


WHILE が な い の に WEND が あ 
る ° 


WEND が な い の に WHILE が あ 
る 。 


誤 消去 防止 用 の ツメ の 折ら 
れ て いる カセ ッ ト テ ー プ に 
書き 込み を 行 な お うと し た 。 


キャ ラク タコ ー ド 表 (ASCII コ ー ド 表 ) 


上 位 4 ビ ッ ト ー 


| B1235456789ñECDEF 


а Papap P سات‎ АЫ 

Im Ф ш 

Таз КД Ре AMIS SOC. а 

Во ЕА ПҒА АГУ Е r> 

IACHE С Г DNE > 
а. зи me Hk FE Adm? 


Q G Ле ID 3 X Nemm] E 
ғ ПС О ШЧ Жута ты ЕС Ü 
Пп.СҮікіл-ОЭ AMn | 
GJ T (Tit L JL оо Cem ITI 
O HOOT ТЕЛ О0О ва ве || (АГ. 

--с ДЕҢ ХЫ Ж-Е = | x x. 
асхакососхолытфтрж--> 
SAL ڑل ل لدل کی ال نف‎ ۳ Кы Д) 


АЗАН ТАҒА ГЕНЕ алта ALAL 


качу ع‎ 
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